xt/extra/diagnostics/unresolvable_relationship.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9
  10 use DBICTest;
  11
  12 my $schema = DBICTest->init_schema();
  13
  14 my $cd = $schema->resultset('CD')->search ({}, { columns => ['year'], rows => 1 })->single;
  15
  16
  17 throws_ok (
  18   sub { $cd->tracks },
  19   qr/Unable to resolve relationship .+ column .+ not loaded from storage/,
  20   'Correct exception on nonresolvable object-based condition'
  21 );
  22
  23 done_testing;