[Bast-commits] r8327 - DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin

[goraxe at dev.catalyst.perl.org]

Author: goraxe
Date: 2010-01-15 18:10:42 +0000 (Fri, 15 Jan 2010)
New Revision: 8327

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t
Log:
remove Module::Load from test suite

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t	2010-01-15 18:00:17 UTC (rev 8326)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t	2010-01-15 18:10:42 UTC (rev 8327)
@@ -23,17 +23,17 @@
 
 
 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';
 
 use DBICTest;
@@ -69,7 +69,7 @@
 #);
 
     clean_dir($sql_dir);
-    load 'DBICVersionOrig';
+    require DBICVersionOrig;
 
     my $admin = DBIx::Class::Admin->new(
         schema_class => 'DBICVersion::Schema', 
@@ -88,7 +88,7 @@
     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', 

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t	2010-01-15 18:00:17 UTC (rev 8326)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t	2010-01-15 18:10:42 UTC (rev 8327)
@@ -23,16 +23,17 @@
 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';
 
 use DBICTest;