[Bast-commits] r3500 - trunk/DBIx-Class-InflateColumn-IP/t/lib

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2007-06-17 19:59:24 +0100 (Sun, 17 Jun 2007)
New Revision: 3500

Modified:
   trunk/DBIx-Class-InflateColumn-IP/t/lib/DBICTest.pm
Log:
Use ->compose_namespace()->connect instead of ->compose_connection() in tests

Modified: trunk/DBIx-Class-InflateColumn-IP/t/lib/DBICTest.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-IP/t/lib/DBICTest.pm	2007-06-16 18:49:33 UTC (rev 3499)
+++ trunk/DBIx-Class-InflateColumn-IP/t/lib/DBICTest.pm	2007-06-17 18:59:24 UTC (rev 3500)
@@ -55,7 +55,8 @@
     my $dbuser = $ENV{"DBICTEST_DBUSER"} || '';
     my $dbpass = $ENV{"DBICTEST_DBPASS"} || '';
 
-   my $schema = DBICTest::Schema->compose_connection('DBICTest' => $dsn, $dbuser, $dbpass);
+   my $schema = DBICTest::Schema->compose_namespace('DBICTest')
+                                ->connect($dsn, $dbuser, $dbpass);
     $schema->storage->on_connect_do(['PRAGMA synchronous = OFF']);
     if ( !$args{no_deploy} ) {
         __PACKAGE__->deploy_schema( $schema );