finish preserve_case support

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 19informix_common.t

diff --git a/t/19informix_common.t b/t/19informix_common.t
index 2df6a97..f3deeed 100644 (file)
--- a/t/19informix_common.t
+++ b/t/19informix_common.t
@@ -2,6 +2,9 @@ use strict;
 use lib qw(t/lib);
 use dbixcsl_common_tests;
 
+# to support " quoted identifiers
+BEGIN { $ENV{DELIMIDENT} = 'y' }
+
 # This test doesn't run over a shared memory connection, because of the single connection limit.
 
 my $dsn      = $ENV{DBICTEST_INFORMIX_DSN} || '';
@@ -17,6 +20,8 @@ my $tester = dbixcsl_common_tests->new(
     dsn            => $dsn,
     user           => $user,
     password       => $password,
+    loader_options => { preserve_case => 1 },
+    quote_char     => '"',
 );
 
 if( !$dsn ) {