t/row/find_one_has_many.t

   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;