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;