[Bast-commits] r7326 - DBIx-Class/0.08/branches/pg_unqualified_schema/t

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-08-17 21:51:40 +0000 (Mon, 17 Aug 2009)
New Revision: 7326

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
added more tests for multi-schema support in 72pg.t

Modified: DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
===================================================================
--- DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-08-17 21:46:21 UTC (rev 7325)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-08-17 21:51:40 UTC (rev 7326)
@@ -1,5 +1,5 @@
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
 use Test::Exception;
@@ -50,7 +50,7 @@
     unless ($dsn && $user);
 
 
-plan tests => 42;
+plan tests => 45;
 
 DBICTest::Schema->load_classes( 'Casecheck', 'ArrayTest' );
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass,);
@@ -122,6 +122,17 @@
 
   is($unq_new && $unq_new->artistid, 1, "and got correct artistid");
 
+  #test with anothertestschema
+  $schema->source('Artist')->name('anothertestschema.artist');
+  my $another_new = $schema->resultset('Artist')->create({ name => 'ribasushi'});
+  is( $another_new->artistid,1, 'got correct artistid for yetanotherschema');
+
+  #test with yetanothertestschema
+  $schema->source('Artist')->name('yetanothertestschema.artist');
+  my $yetanother_new = $schema->resultset('Artist')->create({ name => 'ribasushi'});
+  is( $yetanother_new->artistid,1, 'got correct artistid for yetanotherschema');
+  is( $yetanother_new->artistid,1, 'got correct artistid for yetanotherschema');
+
   $schema->source("Artist")->name($artist_name_save);
 }