t/prefetch/bugs.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema(
  10    no_populate => 1,
  11 );
  12
  13 $schema->resultset('CD')->create({
  14    cdid => 0,
  15    artist => {
  16       artistid => 0,
  17       name => 0,
  18       rank => 0,
  19       charfield => 0,
  20    },
  21    title => 0,
  22    year => 0,
  23    genreid => 0,
  24    single_track => 0,
  25 });
  26
  27 ok( $schema->resultset('CD')->search( {}, { prefetch => 'artist' })->first->artist, 'artist loads even if all columns are 0');
  28
  29 done_testing;