From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 17 Jan 2010 21:43:57 +0000 (+0000)
Subject: And more cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72cfa3b34d42b37694f192107428d4bcd6362d53;p=dbsrgits%2FDBIx-Class-Historic.git

And more cleanup
---

diff --git a/t/admin/03data.t b/t/admin/03data.t
index 35c285e..338771e 100644
--- a/t/admin/03data.t
+++ b/t/admin/03data.t
@@ -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",