added test for find or create related functionality in nested inserts

diff --git a/t/96multi_create.t b/t/96multi_create.t
index a6394cf..0cbc9bf 100644 (file)
--- a/t/96multi_create.t
+++ b/t/96multi_create.t
@@ -196,6 +196,20 @@ my $new_cd = $schema->resultset("CD")->create($new_cd_hashref);
 is($new_cd->artist->id, 17, 'new id retained okay');
 
 
+# Test find or create related functionality
+my $new_artist = $schema->resultset("Artist")->create({ artistid => 18, name => 'larry' });
+my $new_cd_hashref2 = { 
+              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');
+
 # Make sure exceptions from errors in created rels propogate
 eval {
     my $t = $schema->resultset("Track")->new({});