Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
copy_with_extra_selection.t	502 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
filter_column.t	12.45 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
find_one_has_many.t	971 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
inflate_result.t	2.39 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
pkless.t	591 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
set_extra_column.t	719 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del

Editing: find_one_has_many.t (971 B)

use strict;
use warnings;

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

$schema->resultset('Artist')->delete;
$schema->resultset('CD')->delete;

my $artist  = $schema->resultset("Artist")->create({ artistid => 21, name => 'Michael Jackson', rank => 20 });
my $cd = $artist->create_related('cds', { year => 1975, title => 'Compilation from 1975' });

$schema->is_executed_sql_bind(sub {
  my $find_cd = $artist->find_related('cds',{title => 'Compilation from 1975'});
}, [
  [
    ' 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
    ',
    [ { dbic_colname => "me.artist", sqlt_datatype => "integer" }
      => 21 ],
    [ { dbic_colname => "me.title",  sqlt_datatype => "varchar", sqlt_size => 100 }
      => "Compilation from 1975" ],
  ]
], 'find_related only uses foreign key condition once' );

done_testing;