Commit | Line | Data |
1887cd9f |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | |
9 | my $schema = DBICTest->init_schema(); |
10 | |
11 | my $track_titles = { map { @$_ } |
12 | $schema->resultset('Track') |
13 | ->search({}, { columns => [qw(trackid title)] }) |
14 | ->cursor |
15 | ->all |
16 | }; |
17 | |
18 | my $rs = $schema->resultset('Track'); |
19 | |
20 | for my $pass (1,2,3) { |
21 | for my $meth (qw(search single find)) { |
22 | |
23 | my $id = (keys %$track_titles)[0]; |
24 | my $tit = delete $track_titles->{$id}; |
25 | |
26 | my ($o) = $rs->$meth({ trackid => $id }); |
27 | |
28 | is( |
29 | $rs->count({ trackid => $id }), |
30 | 1, |
31 | "Count works (pass $pass)", |
32 | ); |
33 | |
34 | is( |
35 | $o->title, |
36 | $tit, |
37 | "Correct object retrieved via $meth() (pass $pass)" |
38 | ); |
39 | |
40 | $o->delete; |
41 | |
42 | is( |
43 | $rs->count_rs({ trackid => $id })->next, |
44 | 0, |
45 | "Count_rs works (pass $pass)", |
46 | ); |
47 | } |
48 | } |
49 | |
50 | done_testing; |