82d17a2d0b
The underscores are ugly and the .pl extension is an implementation detail that shouldn't be visible to the outside. Also, get rid of the *.in files. It's not really necessary to generate them. And I was always modifying the wrong file.
22 lines
486 B
Perl
Executable file
22 lines
486 B
Perl
Executable file
use strict;
|
|
use Hydra::Schema;
|
|
use Hydra::Helper::Nix;
|
|
|
|
my $db = openHydraDB;
|
|
|
|
my @sources = $db->sources;
|
|
my $nrtables = scalar(@sources);
|
|
|
|
use Test::Simple tests => 43;
|
|
|
|
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);
|
|
}
|
|
}
|
|
|