1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 my $schema = DBICTest->init_schema();
13 my $track_titles = { map { @$_ }
14 $schema->resultset('Track')
15 ->search({}, { columns => [qw(trackid title)] })
20 my $rs = $schema->resultset('Track');
22 for my $pass (1,2,3) {
23 for my $meth (qw(search single find)) {
25 my $id = (keys %$track_titles)[0];
26 my $tit = delete $track_titles->{$id};
28 my ($o) = $rs->$meth({ trackid => $id });
31 $rs->count({ trackid => $id }),
33 "Count works (pass $pass)",
39 "Correct object retrieved via $meth() (pass $pass)"
45 $rs->count_rs({ trackid => $id })->next,
47 "Count_rs works (pass $pass)",