G2ZB6464XGPBIMSZIPSB24EIXSCCGV4XWC3IWPS2CXYPDSUZSU5QC
TESTS = \
query-all-tables.pl
$(TESTS) : db.sqlite
db.sqlite : $(srcdir)/src/sql/hydra-sqlite.sql
sqlite3 db.sqlite < $(srcdir)/src/sql/hydra-sqlite.sql
#! @perl@ -w -I@nix@/libexec/nix
use strict;
use Hydra::Schema;
use Hydra::Helper::Nix;
use Hydra::Helper::AddBuilds;
my $db = openHydraDB;
my @sources = $db->sources;
my $nrtables = scalar(@sources);
use Test::Simple tests => 62;
foreach my $source (@sources) {
if( $source !~ m/^(LatestSucceeded|JobStatus|ActiveJobs)/) {
ok(scalar($db->resultset($source)->search({},{})) == 0, "Basic select query for $source");
}
}