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