In d009cb7d I stupidly created a "double around()"
[dbsrgits/DBIx-Class.git] / t / 26dumper.t
1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
3 use strict;
4 use warnings;
5 use Test::More;
6
7 use Data::Dumper;
8 $Data::Dumper::Sortkeys = 1;
9
10
11 use_ok('DBICTest');
12
13 my $schema = DBICTest->init_schema();
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 });
20
21 Dumper($rs);
22
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 });
29
30 cmp_ok( $rs->count(), '==', 1, "Single record in after death with dumper");
31
32 done_testing;