[Bast-commits] r3946 - in DBIx-Class-Partitioned/1.000/trunk: lib/DBIx/Class t

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2008-01-16 18:16:06 +0000 (Wed, 16 Jan 2008)
New Revision: 3946

Modified:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
   DBIx-Class-Partitioned/1.000/trunk/t/01-basic.t
Log:
added test for partitioned source joins

Modified: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm	2008-01-16 17:43:30 UTC (rev 3945)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm	2008-01-16 18:16:06 UTC (rev 3946)
@@ -3,6 +3,7 @@
 use warnings;
 use strict;
 use Storable ();
+use DBIx::Class::ResultSet::Table::Partition;
 use base qw/DBIx::Class/;
 
 =head1 NAME

Modified: DBIx-Class-Partitioned/1.000/trunk/t/01-basic.t
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/t/01-basic.t	2008-01-16 17:43:30 UTC (rev 3945)
+++ DBIx-Class-Partitioned/1.000/trunk/t/01-basic.t	2008-01-16 18:16:06 UTC (rev 3946)
@@ -47,6 +47,12 @@
     ok( !$user_rs->search( { $user->get_columns } )->count );
     $user_rs->partition('');
     ok( $user_rs->search( { $user->get_columns } )->count );
+    $user_rs->partition('active_user');
+    is(
+        $schema->resultset('UserAffiliation')->search( {}, { join => 'user' } )
+          ->count,
+        1
+    );
     die 'rollback';
 };
 eval { $schema->txn_do($test) };