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
}
sub cleanup {
- my ($dir) = @_;
- $ddl_dir->rmtree if -d $ddl_dir;
+ rm_rf $ddl_dir if -d $ddl_dir;
unlink $db_fn;
}