Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
18c294f4 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
c0329273 |
8 | |
18c294f4 |
9 | use DBICTest; |
10 | |
11 | my $schema = DBICTest->init_schema(); |
12 | |
13 | my $artist_rs = $schema->resultset('Artist'); |
14 | |
15 | for my $rel_rs( |
16 | $artist_rs->search_related_rs( |
17 | cds_without_genre => { artist => 1 }, { order_by => 'cdid' } |
18 | ), |
19 | $artist_rs->find(1)->search_related_rs( |
20 | cds_without_genre => {}, { order_by => 'cdid' } |
21 | ), |
22 | ) { |
23 | |
24 | is_deeply( |
25 | $rel_rs->all_hri, |
26 | [ |
27 | { |
28 | artist => 1, |
29 | cdid => 2, |
30 | genreid => undef, |
31 | single_track => undef, |
32 | title => "Forkful of bees", |
33 | year => 2001 |
34 | }, |
35 | { |
36 | artist => 1, |
37 | cdid => 3, |
38 | genreid => undef, |
39 | single_track => undef, |
40 | title => "Caterwaulin' Blues", |
41 | year => 1997 |
42 | }, |
43 | ] |
44 | ); |
45 | } |
46 | |
47 | done_testing; |