use strict;
use Test::More;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
use File::Path;
use make_dbictest_db;
require DBIx::Class::Schema::Loader;
-$^O eq 'MSWin32'
- ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")
- : plan(tests => 85);
+plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
+ unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
+$^O eq 'MSWin32' && plan skip_all =>
+"Win32 perl produces additional warnings, and this test uses unix paths";
my $DUMP_PATH = './t/_dump';
no strict 'refs';
@{$schema_class . '::ISA'} = ('DBIx::Class::Schema::Loader');
+
+ $tdata{options}{use_namespaces} ||= 0;
+
$schema_class->loader_options(dump_directory => $DUMP_PATH, %{$tdata{options}});
my @warns;
},
);
-END { rmtree($DUMP_PATH, 1, 1); }
+done_testing;
+
+END { rmtree($DUMP_PATH, 1, 1) if $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT}; }