[Bast-commits] r3575 - trunk/DBIx-Class/t

matthewt at dev.catalyst.perl.org matthewt at dev.catalyst.perl.org
Mon Jul 9 21:05:31 GMT 2007


Author: matthewt
Date: 2007-07-09 21:05:30 +0100 (Mon, 09 Jul 2007)
New Revision: 3575

Modified:
   trunk/DBIx-Class/t/96multi_create.t
Log:
failing test for multi-create bug reported by irc:bits

Modified: trunk/DBIx-Class/t/96multi_create.t
===================================================================
--- trunk/DBIx-Class/t/96multi_create.t	2007-07-09 19:41:07 UTC (rev 3574)
+++ trunk/DBIx-Class/t/96multi_create.t	2007-07-09 20:05:30 UTC (rev 3575)
@@ -120,3 +120,10 @@
 		ok( $track && ref $track eq 'DBICTest::Track', 'Got Expected Track Class');
 	}
 }
+
+my $cdp = $schema->resultset('CD_to_Producer')->create({
+            cd => { artist => 1, title => 'foo', year => 2000 },
+            producer => { name => 'jorge' }
+          });
+
+ok($cdp, 'join table record created ok');




More information about the Bast-commits mailing list