2011-03-16 04:50:31 -04:00
|
|
|
use strict;
|
|
|
|
use Hydra::Schema;
|
2012-03-13 08:18:40 -04:00
|
|
|
use Hydra::Model::DB;
|
2011-03-16 04:50:31 -04:00
|
|
|
|
2012-03-13 08:18:40 -04:00
|
|
|
my $db = Hydra::Model::DB->new;
|
2011-03-16 04:50:31 -04:00
|
|
|
|
2012-03-13 08:18:40 -04:00
|
|
|
my @sources = $db->schema->sources;
|
2011-03-16 04:50:31 -04:00
|
|
|
my $nrtables = scalar(@sources);
|
|
|
|
|
2014-04-24 10:08:04 -04:00
|
|
|
use Test::Simple tests => 38;
|
2011-03-16 04:50:31 -04:00
|
|
|
|
|
|
|
foreach my $source (@sources) {
|
2013-01-23 07:48:02 -05:00
|
|
|
my $title = "Basic select query for $source";
|
2013-08-12 14:11:34 -04:00
|
|
|
if ($source eq "SchemaVersion" || $source eq "NrBuilds") {
|
2013-01-23 07:48:02 -05:00
|
|
|
ok(scalar($db->resultset($source)->all) == 1, $title);
|
2013-10-03 09:05:53 -04:00
|
|
|
} elsif( $source !~ m/^LatestSucceeded/) {
|
2013-01-23 07:48:02 -05:00
|
|
|
ok(scalar($db->resultset($source)->all) == 0, $title);
|
|
|
|
} else {
|
|
|
|
ok(scalar($db->resultset($source)->search({},{ bind => ["", "", ""] })) == 0, $title);
|
|
|
|
}
|
2011-03-16 04:50:31 -04:00
|
|
|
}
|