remove Module::Load from test suite
Gordon Irving [Fri, 15 Jan 2010 18:10:42 +0000 (18:10 +0000)]
t/admin/02ddl.t
t/admin/03data.t

index 22b6cf8..873f24d 100644 (file)
@@ -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 @@ my @connect_info = DBICTest->_database(
 #);
 
     clean_dir($sql_dir);
-    load 'DBICVersionOrig';
+    require DBICVersionOrig;
 
     my $admin = DBIx::Class::Admin->new(
         schema_class => 'DBICVersion::Schema', 
@@ -88,7 +88,7 @@ my @connect_info = DBICTest->_database(
     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', 
index 02785af..b7f697d 100644 (file)
@@ -23,15 +23,16 @@ use Test::Exception;
 use Test::Deep;
 
 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 lib dir($Bin,'..', '..','lib')->stringify;
-use lib dir($Bin,'..', 'lib')->stringify;
 
 use ok 'DBIx::Class::Admin';