Back out constructor/prefetch rewrite introduced mainly by 43245ada4a

[dbsrgits/DBIx-Class.git] / t / multi_create / has_many.t

diff --git a/t/multi_create/has_many.t b/t/multi_create/has_many.t
index 2878ff7..716a9a3 100644 (file)
--- a/t/multi_create/has_many.t
+++ b/t/multi_create/has_many.t
@@ -5,19 +5,24 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
+plan tests => 2;
+
 my $schema = DBICTest->init_schema();
 
-my $link = $schema->resultset ('Link')->create ({
-  url => 'loldogs!',
-  bookmarks => [
-    { link => 'Mein Hund ist schwul'},
-    { link => 'Mein Hund ist schwul'},
-  ]
+my $track_no_lyrics = $schema->resultset ('Track')
+              ->search ({ 'lyrics.lyric_id' => undef }, { join => 'lyrics' })
+                ->first;
+
+my $lyric = $track_no_lyrics->create_related ('lyrics', {
+  lyric_versions => [
+    { text => 'english doubled' },
+    { text => 'english doubled' },
+  ],
 });
-is ($link->bookmarks->count, 2, "Two identical default-insert has_many's created");
+is ($lyric->lyric_versions->count, 2, "Two identical has_many's created");
 
 
-$link = $schema->resultset ('Link')->create ({
+my $link = $schema->resultset ('Link')->create ({
   url => 'lolcats!',
   bookmarks => [
     {},
@@ -25,5 +30,3 @@ $link = $schema->resultset ('Link')->create ({
   ]
 });
 is ($link->bookmarks->count, 2, "Two identical default-insert has_many's created");
-
-done_testing;