t/regres/rt_93432.t

   1 use Test::More tests => 4;
   2
   3 BEGIN {
   4     use lib 't/lib';
   5     use_ok 'DBICx::TestDatabase';
   6     use_ok 'TestDB';
   7 }
   8
   9 my $db = DBICx::TestDatabase->new('TestDB');
  10
  11 isa_ok $db, 'TestDB';
  12
  13 my $rs = $db->resultset('WithBadDefaultValue')
  14             ->create({id => 1});
  15
  16 ok defined($rs) && $rs, 'got a resultset'
  17     or diag "ResultSet: $rs";
  18