preserve relnames when another FK is added (RT#62424), remove resultset_components...

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

diff --git a/t/14ora_common.t b/t/14ora_common.t
index 2cbe77f..f8bd668 100644 (file)
--- a/t/14ora_common.t
+++ b/t/14ora_common.t
@@ -46,10 +46,16 @@ my $tester = dbixcsl_common_tests->new(
         'char'         => { data_type => 'char',      size => 1  },
         'char(11)'     => { data_type => 'char',      size => 11 },
         'nchar'        => { data_type => 'nchar',     size => 1  },
+        'national character'
+                       => { data_type => 'nchar',     size => 1  },
         'nchar(11)'    => { data_type => 'nchar',     size => 11 },
+        'national character(11)'
+                       => { data_type => 'nchar',     size => 11 },
         'varchar(20)'  => { data_type => 'varchar2',  size => 20 },
         'varchar2(20)' => { data_type => 'varchar2',  size => 20 },
         'nvarchar2(20)'=> { data_type => 'nvarchar2', size => 20 },
+        'national character varying(20)'
+                       => { data_type => 'nvarchar2', size => 20 },
 
         # Numeric Types
         #
@@ -154,7 +160,7 @@ my $tester = dbixcsl_common_tests->new(
 
             SKIP: {
                 skip 'not running comment tests', 1 unless (my $class = $classes->{oracle_loader_test1});
-                my $filename = $schema->_loader->_get_dump_filename($class);
+                my $filename = $schema->_loader->get_dump_filename($class);
                 my $code = File::Slurp::slurp $filename;
 
                 like $code, qr/^=head1 NAME\n\n^$class - oracle_loader_test1 table comment\n\n^=cut\n/m,