[Bast-commits] r9272 - in trunk/DBIx-Class-DigestColumns/t: . lib

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-29 04:00:23 +0100 (Thu, 29 Apr 2010)
New Revision: 9272

Modified:
   trunk/DBIx-Class-DigestColumns/t/05digest.t
   trunk/DBIx-Class-DigestColumns/t/lib/DigestTest.pm
Log:
get rid of warnings

Modified: trunk/DBIx-Class-DigestColumns/t/05digest.t
===================================================================
--- trunk/DBIx-Class-DigestColumns/t/05digest.t	2010-04-29 02:39:01 UTC (rev 9271)
+++ trunk/DBIx-Class-DigestColumns/t/05digest.t	2010-04-29 03:00:23 UTC (rev 9272)
@@ -1,11 +1,10 @@
 use strict;
 use warnings;
 use Test::More;
-use Class::ISA;
 
 BEGIN {
     plan eval "require Digest"
-        ? ( tests => 10 )	
+        ? ( tests => 10 )
         : ( skip_all => 'needs Digest for testing' );
 }
 

Modified: trunk/DBIx-Class-DigestColumns/t/lib/DigestTest.pm
===================================================================
--- trunk/DBIx-Class-DigestColumns/t/lib/DigestTest.pm	2010-04-29 02:39:01 UTC (rev 9271)
+++ trunk/DBIx-Class-DigestColumns/t/lib/DigestTest.pm	2010-04-29 03:00:23 UTC (rev 9272)
@@ -1,4 +1,4 @@
-package # hide from PAUSE 
+package # hide from PAUSE
     DigestTest;
 
 use strict;
@@ -8,14 +8,14 @@
 sub initialise {
 
   my $db_file = "t/var/DigestTest.db";
-  
+
   unlink($db_file) if -e $db_file;
   unlink($db_file . "-journal") if -e $db_file . "-journal";
   mkdir("t/var") unless -d "t/var";
-  
+
   my $dsn = "dbi:SQLite:${db_file}";
-  
-  return DigestTest::Schema->compose_connection('DigestTest' => $dsn);
+
+  return DigestTest::Schema->connect($dsn);
 }
 
 sub init_schema {
@@ -27,12 +27,12 @@
     mkdir("t/var") unless -d "t/var";
 
     my $dsn = "dbi:SQLite:${db_file}";
-    
-    my $schema = DigestTest::Schema->compose_connection('DigestTest' => $dsn);
+
+    my $schema = DigestTest::Schema->connect($dsn);
 #    print $schema->storage->deployment_statements($schema);
     $schema->deploy();
 
-    
+
     return $schema;
 }