[Bast-commits] r8353 - in DBIx-Class/0.08/branches/dbicadmin_refactor/t: . admin

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-17 22:23:15 +0000 (Sun, 17 Jan 2010)
New Revision: 8353

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t
Log:
More cleanup

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t	2010-01-17 21:51:21 UTC (rev 8352)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t	2010-01-17 22:23:15 UTC (rev 8353)
@@ -1,6 +1,6 @@
 # vim: filetype=perl
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
 use lib qw(t/lib);
@@ -41,6 +41,8 @@
 }
 
 sub test_dbicadmin {
+#    $ENV{PERL5LIB} = join ':', @INC;
+
     my $schema = DBICTest->init_schema( sqlite_use_file => 1 );  # reinit a fresh db for every run
 
     my $employees = $schema->resultset('Employee');
@@ -64,8 +66,8 @@
         my $data = do { local $/; <$fh> };
         close($fh);
         if (!ok( ($data=~/Aran.*Trout/s), "$ENV{JSON_ANY_ORDER}: select with attrs" )) {
-			diag ("data from select is $data")
-		};
+          diag ("data from select is $data")
+        };
     }
 
     system( _prepare_system_args( qw|--op=delete --where={"name":"Trout"}| ) );
@@ -80,10 +82,11 @@
 #
 sub _prepare_system_args {
     my $perl = $^X;
+
     my @args = (
-        qw|script/dbicadmin --quiet --schema=DBICTest::Schema --class=Employee --tlibs|,
+        qw|script/dbicadmin --quiet --schema=DBICTest::Schema --class=Employee|,
         q|--connect=["dbi:SQLite:dbname=t/var/DBIxClass.db","","",{"AutoCommit":1}]|,
-        qw|--force --tlibs|,
+        qw|--force|,
         @_,
     );
 

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:51:21 UTC (rev 8352)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/03data.t	2010-01-17 22:23:15 UTC (rev 8353)
@@ -77,6 +77,4 @@
   is ($employees->count(), 1, "left Aran" );
 }
 
-
-
 done_testing;