Merge 'trunk' into 'DBIx-Class-current'
[dbsrgits/DBIx-Class-Historic.git] / t / 26dumper.t
CommitLineData
2c0c56b7 1use strict;
2use Test::More;
3use IO::File;
4
5use Data::Dumper;
6$Data::Dumper::Sortkeys = 1;
7
8use lib qw(t/lib);
9
10BEGIN {
11 eval "use DBD::SQLite";
12 plan $ENV{DATA_DUMPER_TEST}
13 ? ( tests => 3 )
14 : ( skip_all => 'Set $ENV{DATA_DUMPER_TEST} to run this test' );
15}
16
17
18use_ok('DBICTest');
19use_ok('DBICTest::HelperRels');
20
21
22my $rs = DBICTest::CD->search(
23 { 'artist.name' => 'We Are Goth',
24 'liner_notes.notes' => 'Kill Yourself!' },
25 { join => [ qw/artist liner_notes/ ] });
26
27Dumper($rs);
28
29$rs = DBICTest::CD->search(
30 { 'artist.name' => 'We Are Goth',
31 'liner_notes.notes' => 'Kill Yourself!' },
32 { join => [ qw/artist liner_notes/ ] });
33
34cmp_ok( $rs + 0, '==', 1, "Single record in after death with dumper");
35
361;