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

package main;

use Test::More 'no_plan';

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";

diag $rs->enum;

1; # end of test
Commit	Line	Data
c5f3507b	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