9 my $schema = DBICTest->init_schema();
11 my $track_titles = { map { @$_ }
12 $schema->resultset('Track')
13 ->search({}, { columns => [qw(trackid title)] })
18 my $rs = $schema->resultset('Track');
20 for my $pass (1,2,3) {
21 for my $meth (qw(search single find)) {
23 my $id = (keys %$track_titles)[0];
24 my $tit = delete $track_titles->{$id};
26 my ($o) = $rs->$meth({ trackid => $id });
29 $rs->count({ trackid => $id }),
31 "Count works (pass $pass)",
37 "Correct object retrieved via $meth() (pass $pass)"
43 $rs->count_rs({ trackid => $id })->next,
45 "Count_rs works (pass $pass)",