And more cleanup
Peter Rabbitson [Sun, 17 Jan 2010 21:43:57 +0000 (21:43 +0000)]
t/admin/03data.t

index 35c285e..338771e 100644 (file)
@@ -23,30 +23,22 @@ 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 lib 't/lib';
+use DBICTest;
 
 use ok 'DBIx::Class::Admin';
 
-use DBICTest;
 
 { # test data maniplulation functions
 
   # create a DBICTest so we can steal its connect info
   my $schema = DBICTest->init_schema(
-  #    no_deploy=>1,
-  #  no_populate=>1,
     sqlite_use_file => 1,
-    );
-
+  );
 
   my $admin = DBIx::Class::Admin->new(
     schema_class=> "DBICTest::Schema",