use strict;
-use warnings;
+use warnings;
use Test::More;
use lib qw(t/lib);
'join 5 (SCALAR reference for ON statement) ok'
);
-my @j6 = (
- { child => 'person' },
- [ { father => 'person' }, { 'father.person_id' => { '!=', '42' } }, ],
- [ { mother => 'person' }, { 'mother.person_id' => 'child.mother_id' } ],
-);
-$match = qr/HASH reference arguments are not supported in JOINS/;
-eval { $sa->_recurse_from(@j6) };
-like( $@, $match, 'join 6 (HASH reference for ON statement dies) ok' );
-
my $rs = $schema->resultset("CD")->search(
{ 'year' => 2001, 'artist.name' => 'Caterwauler McCrae' },
{ from => [ { 'me' => 'cd' },
[ 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' },