[Bast-commits] r9325 - in DBIx-Class-Preview/1.000/trunk/t: . lib

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2010-05-07 15:58:22 +0100 (Fri, 07 May 2010)
New Revision: 9325

Added:
   DBIx-Class-Preview/1.000/trunk/t/connect.t
Modified:
   DBIx-Class-Preview/1.000/trunk/t/lib/DBICTest.pm
Log:
added failing test to demonstrate issue when using ->connect without compose_*

Added: DBIx-Class-Preview/1.000/trunk/t/connect.t
===================================================================
--- DBIx-Class-Preview/1.000/trunk/t/connect.t	                        (rev 0)
+++ DBIx-Class-Preview/1.000/trunk/t/connect.t	2010-05-07 14:58:22 UTC (rev 9325)
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use DBICTest;
+use Test::More 'no_plan';
+
+my $schema = DBICTest->init_schema( connect => 1 );
+$schema->preview_active(1);
+ok($schema->resultset('Artist')->create({ name => 'fuckmunch' }), 'create with connect worked');
+
+1;

Modified: DBIx-Class-Preview/1.000/trunk/t/lib/DBICTest.pm
===================================================================
--- DBIx-Class-Preview/1.000/trunk/t/lib/DBICTest.pm	2010-05-07 14:08:17 UTC (rev 9324)
+++ DBIx-Class-Preview/1.000/trunk/t/lib/DBICTest.pm	2010-05-07 14:58:22 UTC (rev 9325)
@@ -64,6 +64,10 @@
       $schema = DBICTest::Schema->compose_connection(
                   'DBICTest', @connect_info
                 );
+    } elsif ($args{connect}) {
+      $schema = DBICTest::Schema->connect(
+                  @connect_info
+                );      
     } else {
       $schema = DBICTest::Schema->compose_namespace('DBICTest')
                                 ->connect(@connect_info);