finish preserve_case support

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 13db2_common.t

diff --git a/t/13db2_common.t b/t/13db2_common.t
index 2eefb47..f5f1475 100644 (file)
--- a/t/13db2_common.t
+++ b/t/13db2_common.t
@@ -9,11 +9,16 @@ my $password = $ENV{DBICTEST_DB2_PASS} || '';
 my $tester = dbixcsl_common_tests->new(
     vendor         => 'DB2',
     auto_inc_pk    => 'INTEGER GENERATED BY DEFAULT AS IDENTITY NOT NULL PRIMARY KEY',
-    default_function => 'CURRENT TIMESTAMP',
     dsn            => $dsn,
     user           => $user,
     password       => $password,
     null           => '',
+    preserve_case_mode_is_exclusive => 1,
+    quote_char                      => '"',
+    data_types => {
+        'timestamp DEFAULT CURRENT TIMESTAMP' => { data_type => 'timestamp', default_value => \'current_timestamp',
+                                                   original => { default_value => \'current timestamp' } },
+    },
 );
 
 if( !$dsn || !$user ) {
@@ -22,3 +27,4 @@ if( !$dsn || !$user ) {
 else {
     $tester->run_tests();
 }
+# vim:et sts=4 sw=4 tw=0: