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