[Bast-commits] r5626 - DBIx-Class/0.08/branches/multi_stuff/t/96multi_create

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-22 16:20:42 +0000 (Sun, 22 Feb 2009)
New Revision: 5626

Added:
   DBIx-Class/0.08/branches/multi_stuff/t/96multi_create/existing_m2m.t
Log:
Another MC problem

Added: DBIx-Class/0.08/branches/multi_stuff/t/96multi_create/existing_m2m.t
===================================================================
--- DBIx-Class/0.08/branches/multi_stuff/t/96multi_create/existing_m2m.t	                        (rev 0)
+++ DBIx-Class/0.08/branches/multi_stuff/t/96multi_create/existing_m2m.t	2009-02-22 16:20:42 UTC (rev 5626)
@@ -0,0 +1,54 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+use lib qw(t/lib);
+use DBICTest;
+
+plan 'no_plan';
+
+my $schema = DBICTest->init_schema();
+
+my $counts;
+$counts->{$_} = $schema->resultset($_)->count for qw/Artist CD Producer/;
+
+lives_ok (sub {
+  my $artist = $schema->resultset('Artist')->first;
+  my $producer = $schema->resultset('Producer')->create ({ name => 'the queen of england' });
+
+  $schema->resultset('CD')->create ({
+    artist => $artist,
+    title => 'queen1',
+    year => 2007,
+    cd_to_producer => [
+      {
+        producer => {
+          name => $producer->name,
+          producer_to_cd => [
+            {
+              cd => {
+                title => 'queen2',
+                year => 2008,
+                artist => $artist,
+              },
+            },
+          ],
+        },
+      },
+    ],
+  });
+
+  is ($schema->resultset('Artist')->count, $counts->{Artist}, 'No new artists');
+  is ($schema->resultset('Producer')->count, $counts->{Producer} + 1, '1 new proucers');
+  is ($schema->resultset('CD')->count, $counts->{CD} + 2, '2 new cds');
+
+  is ($producer->cds->count, 2, 'CDs assigned to correct producer');
+  is_deeply (
+    [ $producer->cds->search ({}, { order_by => 'title' })->get_column('title')->all],
+    [ qw/queen1 queen2/ ],
+    'Correct cd names',
+  );
+});
+
+1;