Firebird: mixed case support (wip)

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 18firebird_common.t

diff --git a/t/18firebird_common.t b/t/18firebird_common.t
index 62da41c..b48160c 100644 (file)
--- a/t/18firebird_common.t
+++ b/t/18firebird_common.t
@@ -1,6 +1,7 @@
 use strict;
 use lib qw(t/lib);
 use dbixcsl_common_tests;
+use dbixcsl_firebird_extra_tests;
 
 my $dsn      = $ENV{DBICTEST_FIREBIRD_DSN} || '';
 my $user     = $ENV{DBICTEST_FIREBIRD_USER} || '';
@@ -32,7 +33,8 @@ my $tester = dbixcsl_common_tests->new(
         );
     },
     null        => '',
-    date_datatype => 'TIMESTAMP',
+    extra       => dbixcsl_firebird_extra_tests->extra,
+    uppercase_identifiers => 1,
     dsn         => $dsn,
     user        => $user,
     password    => $password,
@@ -43,5 +45,11 @@ if( !$dsn ) {
     $tester->skip_tests('You need to set the DBICTEST_FIREBIRD_DSN, _USER, and _PASS environment variables');
 }
 else {
+    # get rid of stupid warning from InterBase/GetInfo.pm
+    {
+        local $SIG{__WARN__} = sub {};
+        require DBD::InterBase;
+        require DBD::InterBase::GetInfo;
+    }
     $tester->run_tests();
 }