more Oracle type info fixes

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 16mssql_common.t

diff --git a/t/16mssql_common.t b/t/16mssql_common.t
index 1f3823a..79a9b06 100644 (file)
--- a/t/16mssql_common.t
+++ b/t/16mssql_common.t
@@ -67,9 +67,9 @@ my $tester = dbixcsl_common_tests->new(
         # datetime types
         date     => { data_type => 'date' },
         datetime => { data_type => 'datetime' },
-        # test rewriting getdate() to CURRENT_TIMESTAMP
-        'datetime DEFAULT getdate()'
-                 => { data_type => 'datetime', default_value => \'CURRENT_TIMESTAMP' },
+        # test rewriting getdate() to current_timestamp
+        'datetime default getdate()'
+                 => { data_type => 'datetime', default_value => \'current_timestamp' },
         smalldatetime  => { data_type => 'smalldatetime' },
         time     => { data_type => 'time' },
         'time(0)'=> { data_type => 'time', size => 0 },
@@ -121,6 +121,7 @@ my $tester = dbixcsl_common_tests->new(
 
         # other types
         timestamp        => { data_type => 'timestamp', inflate_datetime => 0 },
+        rowversion       => { data_type => 'rowversion' },
         uniqueidentifier => { data_type => 'uniqueidentifier' },
         hierarchyid      => { data_type => 'hierarchyid' },
         sql_variant      => { data_type => 'sql_variant' },
@@ -191,7 +192,7 @@ my $tester = dbixcsl_common_tests->new(
             ok ((my $rsrc = $schema->resultset($monikers->{mssql_loader_test5})->result_source),
                 'got result_source');
 
-            if ($schema->_loader->_is_case_sensitive) {
+            if ($schema->_loader->preserve_case) {
                 is_deeply [ $rsrc->columns ], [qw/Id FooCol BarCol/],
                     'column name case is preserved with case-sensitive collation';
 
@@ -214,11 +215,18 @@ my $tester = dbixcsl_common_tests->new(
 
             lives_and {
                 my $five_row = $schema->resultset($monikers->{mssql_loader_test5})->new_result({});
-                $five_row->foocol(1);
-                $five_row->barcol(2);
+
+                if ($schema->_loader->preserve_case) {
+                    $five_row->foo_col(1);
+                    $five_row->bar_col(2);
+                }
+                else {
+                    $five_row->foocol(1);
+                    $five_row->barcol(2);
+                }
                 $five_row->insert;
 
-                my $six_row  = $five_row->create_related('mssql_loader_test6s', {});
+                my $six_row = $five_row->create_related('mssql_loader_test6s', {});
 
                 is $six_row->five->id, 1;
             } 'relationships for mixed-case tables/columns detected';