fixes https://rt.cpan.org/Ticket/Display.html?id=93432

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

diff --git a/t/regres/rt_93432.t b/t/regres/rt_93432.t
new file mode 100644 (file)
index 0000000..cd72fed
--- /dev/null
+++ b/t/regres/rt_93432.t
@@ -0,0 +1,24 @@
+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
+