projects
/
dbsrgits/DBIx-Class-InflateColumn-Object-Enum.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
cd72feda1155300ffe93c2c9fce21b7bd0609acb
[dbsrgits/DBIx-Class-InflateColumn-Object-Enum.git]
/
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