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