hydra/tests/query-all-tables.pl.in

#! @perl@ -w -I@nix@/libexec/nix

use strict;
use Hydra::Schema;
use Hydra::Helper::Nix;

my $db = openHydraDB;

my @sources = $db->sources;
my $nrtables = scalar(@sources);

use Test::Simple tests => 74;

foreach my $source (@sources) {
  my $title = "Basic select query for $source";
  if( $source !~ m/^(LatestSucceeded|JobStatus|ActiveJobs)/) {
    ok(scalar($db->resultset($source)->all) == 0, $title);
  } 
  else {
    ok(scalar($db->resultset($source)->search({},{ bind => ["", "", ""] })) == 0, $title);
  }
}