t/resultsource/bare_resultclass_exception.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 use DBICTest;
  10
  11 {
  12   package DBICTest::Foo;
  13   use base "DBIx::Class::Core";
  14 }
  15
  16 throws_ok { DBICTest::Foo->new("urgh") } qr/must be a hashref/;
  17
  18 done_testing;