Introduce GOVERNANCE document and empty RESOLUTIONS file.
[dbsrgits/DBIx-Class.git] / t / 26dumper.t
CommitLineData
c0329273 1BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
2c0c56b7 3use strict;
4a233f30 4use warnings;
2c0c56b7 5use Test::More;
2c0c56b7 6
7use Data::Dumper;
8$Data::Dumper::Sortkeys = 1;
9
c0329273 10
2c0c56b7 11use_ok('DBICTest');
2c0c56b7 12
a47e1233 13my $schema = DBICTest->init_schema();
c93ddd59 14my $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
21Dumper($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 30cmp_ok( $rs->count(), '==', 1, "Single record in after death with dumper");
2c0c56b7 31
dc4600b2 32done_testing;