[Bast-commits] r4379 - DBIx-Class/0.08/trunk/t

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-05-11 20:03:27 +0100 (Sun, 11 May 2008)
New Revision: 4379

Modified:
   DBIx-Class/0.08/trunk/t/96multi_create.t
Log:
sanified new multi_create test

Modified: DBIx-Class/0.08/trunk/t/96multi_create.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96multi_create.t	2008-05-11 18:43:58 UTC (rev 4378)
+++ DBIx-Class/0.08/trunk/t/96multi_create.t	2008-05-11 19:03:27 UTC (rev 4379)
@@ -198,17 +198,16 @@
 
 # Test find or create related functionality
 my $new_artist = $schema->resultset("Artist")->create({ artistid => 18, name => 'larry' });
-my $new_cd_hashref2 = { 
+
+eval {
+	$schema->resultset("CD")->create({ 
               cdid => 28, 
                title => 'Boogie Wiggle', 
               year => '2007', 
               artist => { artistid => 18, name => 'larry' }
-             };
-
-eval {
-	$schema->resultset("CD")->create($new_cd_hashref2);
+             });
 };
-is($@, '', 'new artist created without clash');
+is($@, '', 'new cd created without clash on related artist');
 
 # Make sure exceptions from errors in created rels propogate
 eval {