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

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2008-11-01 00:42:56 +0000 (Sat, 01 Nov 2008)
New Revision: 5036

Modified:
   DBIx-Class/0.08/trunk/t/96multi_create.t
Log:
added failing test case for multi create

Modified: DBIx-Class/0.08/trunk/t/96multi_create.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96multi_create.t	2008-10-31 23:36:02 UTC (rev 5035)
+++ DBIx-Class/0.08/trunk/t/96multi_create.t	2008-11-01 00:42:56 UTC (rev 5036)
@@ -20,11 +20,16 @@
                                                      cds => [
                                                              { title => 'Music to code by',
                                                                year => 2007,
+                                                               tags => [
+                                                                 { 'tag' => 'rock' },
+                                                                 { 'tag' => 'pop' },
+                                                               ],
                                                              },
                                                              ],
                                                      });
 is(ref $artist->cds->first, 'DBICTest::CD', 'Created Artist with CDs');
 is($artist->cds->first->title, 'Music to code by', 'CD created correctly');
+is($artist->cds->first->tags->count, 2, 'Correct tags count');
 
 # Add a new CD
 $artist->update({cds => [ $artist->cds,