use Test::Exception;
use Test::Warn;
-use Path::Class;
-
-
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+use DBICTest::Util 'rm_rf';
use DBIx::Class::Admin;
undef,
{ on_connect_do => 'PRAGMA synchronous = OFF' },
);
-my $ddl_dir = dir(qw/t var/, "admin_ddl-$$");
+my $ddl_dir = "t/var/admin_ddl-$$";
{ # create the schema
# make sure we are clean
-clean_dir($ddl_dir);
+cleanup();
my $admin = DBIx::Class::Admin->new(
{ # upgrade schema
-clean_dir($ddl_dir);
+cleanup();
require DBICVersion_v1;
my $admin = DBIx::Class::Admin->new(
{ # install
-clean_dir($ddl_dir);
+cleanup();
my $admin = DBIx::Class::Admin->new(
schema_class => 'DBICVersion::Schema',
is($admin->schema->get_db_version, "4.0", 'db thinks its version 4.0');
}
-sub clean_dir {
- my ($dir) = @_;
- $dir->rmtree if -d $dir;
+sub cleanup {
+ rm_rf $ddl_dir if -d $ddl_dir;
unlink $db_fn;
}
END {
- clean_dir($ddl_dir);
+ cleanup();
}
done_testing;