Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
2c0c56b7 |
3 | use strict; |
4a233f30 |
4 | use warnings; |
2c0c56b7 |
5 | use Test::More; |
2c0c56b7 |
6 | |
7 | use Data::Dumper; |
8 | $Data::Dumper::Sortkeys = 1; |
9 | |
c0329273 |
10 | |
2c0c56b7 |
11 | use_ok('DBICTest'); |
2c0c56b7 |
12 | |
a47e1233 |
13 | my $schema = DBICTest->init_schema(); |
c93ddd59 |
14 | my $rs = $schema->resultset('CD')->search({ |
15 | 'artist.name' => 'We Are Goth', |
16 | 'liner_notes.notes' => 'Kill Yourself!', |
17 | }, { |
18 | join => [ qw/artist liner_notes/ ], |
19 | }); |
2c0c56b7 |
20 | |
21 | Dumper($rs); |
22 | |
c93ddd59 |
23 | $rs = $schema->resultset('CD')->search({ |
24 | 'artist.name' => 'We Are Goth', |
25 | 'liner_notes.notes' => 'Kill Yourself!', |
26 | }, { |
27 | join => [ qw/artist liner_notes/ ], |
28 | }); |
2c0c56b7 |
29 | |
c93ddd59 |
30 | cmp_ok( $rs->count(), '==', 1, "Single record in after death with dumper"); |
2c0c56b7 |
31 | |
dc4600b2 |
32 | done_testing; |