use strict;
-use warnings;
+use warnings;
use Test::More;
use lib qw(t/lib);
[ 4, 7 ],
[ 4, 8 ],
]);
-
+
sub cd_count {
return $schema->resultset("CD")->count;
}
is(cd_count(), 8, '8 rows in table cd');
is(tk_count(), 7, '7 rows in table twokeys');
-
+
sub artist1 {
return $schema->resultset("CD")->search(
{ 'artist.name' => 'Caterwauler McCrae' },