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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-17 21:43:57 +0000 (Sun, 17 Jan 2010)
New Revision: 8351

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t
Log:
And more cleanup

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-17 21:41:11 UTC (rev 8350)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t	2010-01-17 21:43:57 UTC (rev 8351)
@@ -23,31 +23,23 @@
 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",
     connect_info => $schema->storage->connect_info(),