t/regres/rt_93432.t

   1 package main;
   2
   3 use Test::More 'no_plan';
   4
   5 BEGIN {
   6     use lib 't/lib';
   7     use_ok 'DBICx::TestDatabase';
   8     use_ok 'TestDB';
   9 }
  10
  11 my $db = DBICx::TestDatabase->new('TestDB');
  12
  13 isa_ok $db, 'TestDB';
  14
  15 my $rs = $db->resultset('WithBadDefaultValue')
  16             ->create({id => 1});
  17
  18 ok defined($rs) && $rs, 'got a resultset'
  19     or diag "ResultSet: $rs";
  20
  21 diag $rs->enum;
  22
  23 1; # end of test
  24