+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => qw( admin deploy );
+
use strict;
use warnings;
use Test::Exception;
use Test::Warn;
-use Path::Class;
-
-use lib qw(t/lib);
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+use DBICTest::Util 'rm_rf';
-BEGIN {
- require DBIx::Class;
- plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for('admin')
- unless DBIx::Class::Optional::Dependencies->req_ok_for('admin');
-
- plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for('deploy')
- unless DBIx::Class::Optional::Dependencies->req_ok_for('deploy');
-}
-
-use_ok 'DBIx::Class::Admin';
+use DBIx::Class::Admin;
# lock early
DBICTest->init_schema(no_deploy => 1, no_populate => 1);
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;