finish preserve_case support

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 14ora_common.t

diff --git a/t/14ora_common.t b/t/14ora_common.t
index 60c5645..1cab6fa 100644 (file)
--- a/t/14ora_common.t
+++ b/t/14ora_common.t
@@ -29,7 +29,8 @@ my $tester = dbixcsl_common_tests->new(
         my ($table, $col) = @_;
         return qq{ DROP SEQUENCE ${table}_${col}_seq };
     },
-    quote_char  => '"',
+    preserve_case_mode_is_exclusive => 1,
+    quote_char                      => '"',
     dsn         => $dsn,
     user        => $user,
     password    => $password,