Commit | Line | Data |
3170049a |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Exception; |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | use DBIC::DebugObj; |
9 | use DBIC::SqlMakerTest; |
10 | |
11 | my $schema = DBICTest->init_schema(); |
12 | |
13 | $schema->resultset('Artist')->delete; |
14 | $schema->resultset('CD')->delete; |
15 | |
16 | my $artist = $schema->resultset("Artist")->create({ artistid => 21, name => 'Michael Jackson', rank => 20 }); |
17 | my $cd = $artist->create_related('cds', { year => 1975, title => 'Compilation from 1975' }); |
18 | |
19 | my ($sql, @bind); |
20 | local $schema->storage->{debug} = 1; |
21 | local $schema->storage->{debugobj} = DBIC::DebugObj->new(\$sql, \@bind); |
22 | |
23 | my $find_cd = $artist->find_related('cds',{title => 'Compilation from 1975'}); |
24 | |
25 | s/^'//, s/'\z// for @bind; # why does DBIC::DebugObj not do this? |
26 | |
27 | is_same_sql_bind ( |
28 | $sql, |
29 | \@bind, |
30 | 'SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE ( ( me.artist = ? AND me.title = ? ) ) ORDER BY year ASC', |
31 | [21, 'Compilation from 1975'], |
32 | 'find_related only uses foreign key condition once', |
33 | ); |
34 | |
35 | done_testing; |