[dbsrgits/DBIx-Class-InflateColumn-Object-Enum.git] / t / regres / rt_93432.t

use Test::More tests => 4;

BEGIN {
    use lib 't/lib';
    use_ok 'DBICx::TestDatabase';
    use_ok 'TestDB';
}

my $db = DBICx::TestDatabase->new('TestDB');

isa_ok $db, 'TestDB';

my $rs = $db->resultset('WithBadDefaultValue')
            ->create({id => 1});

ok defined($rs) && $rs, 'got a resultset'
    or diag "ResultSet: $rs";
Commit	Line	Data
db759f5b	1	use Test::More tests => 4;
c5f3507b	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