Merge branch 'master' into 0.08

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

diff --git a/t/16mssql_common.t b/t/16mssql_common.t
index 93c6e00..3a8f35d 100644 (file)
--- a/t/16mssql_common.t
+++ b/t/16mssql_common.t
@@ -36,6 +36,8 @@ my $tester = dbixcsl_common_tests->new(
             password    => $odbc_password,
         } : ()),
     ],
+    preserve_case_mode_is_exclusive => 1,
+    quote_char => [ qw/[ ]/ ],
     data_types => {
         # http://msdn.microsoft.com/en-us/library/ms187752.aspx
 
@@ -69,7 +71,8 @@ my $tester = dbixcsl_common_tests->new(
         datetime => { data_type => 'datetime' },
         # test rewriting getdate() to current_timestamp
         'datetime default getdate()'
-                 => { data_type => 'datetime', default_value => \'current_timestamp' },
+                 => { data_type => 'datetime', default_value => \'current_timestamp',
+                      original => { default_value => \'getdate()' } },
         smalldatetime  => { data_type => 'smalldatetime' },
         time     => { data_type => 'time' },
         'time(0)'=> { data_type => 'time', size => 0 },
@@ -102,6 +105,8 @@ my $tester = dbixcsl_common_tests->new(
         # string types
         char           => { data_type => 'char', size => 1 },
         'char(2)'      => { data_type => 'char', size => 2 },
+        character      => { data_type => 'char', size => 1 },
+        'character(2)' => { data_type => 'char', size => 2 },
         'varchar(2)'   => { data_type => 'varchar', size => 2 },
         nchar          => { data_type => 'nchar', size => 1 },
         'nchar(2)'     => { data_type => 'nchar', size => 2 },