Real detabify

[dbsrgits/DBIx-Class.git] / t / admin / 02ddl.t

diff --git a/t/admin/02ddl.t b/t/admin/02ddl.t
index 3f10721..d65331f 100644 (file)
--- a/t/admin/02ddl.t
+++ b/t/admin/02ddl.t
@@ -23,16 +23,16 @@ use Test::Exception;
 
 
 BEGIN {
+    use FindBin qw($Bin);
+    use File::Spec::Functions qw(catdir);
+    use lib catdir($Bin,'..', '..','lib');
+    use lib catdir($Bin,'..', 'lib');
+
     eval "use DBIx::Class::Admin";
     plan skip_all => "Deps not installed: $@" if $@;
 }
 
 use Path::Class;
-use FindBin qw($Bin);
-use Module::Load;
-
-use lib dir($Bin,'..', '..','lib')->stringify;
-use lib dir($Bin,'..', 'lib')->stringify;
 
 use ok 'DBIx::Class::Admin';
 
@@ -69,7 +69,7 @@ lives_ok { $admin->create('SQLite'); } 'Can Create SQLite sql';
 #);
 
 clean_dir($sql_dir);
-load 'DBICVersionOrig';
+require DBICVersionOrig;
 
 my $admin = DBIx::Class::Admin->new(
        schema_class => 'DBICVersion::Schema', 
@@ -88,7 +88,7 @@ lives_ok { $schema = DBICVersion::Schema->connect(@{$schema->storage->connect_in
 is($schema->get_db_version, $DBICVersion::Schema::VERSION, 'Schema deployed and versions match');
 
 
-load 'DBICVersionNew';
+require DBICVersionNew;
 
 $admin = DBIx::Class::Admin->new(
        schema_class => 'DBICVersion::Schema',