[Bast-commits] r7192 - DBIx-Class/0.08/branches/multicreate_fixes/t/multi_create

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Tue Aug 4 13:39:07 GMT 2009


Author: ribasushi
Date: 2009-08-04 13:39:05 +0000 (Tue, 04 Aug 2009)
New Revision: 7192

Modified:
   DBIx-Class/0.08/branches/multicreate_fixes/t/multi_create/standard.t
Log:
Remove bogus test - the real test is in t/multi_create/has_many.t

Modified: DBIx-Class/0.08/branches/multicreate_fixes/t/multi_create/standard.t
===================================================================
--- DBIx-Class/0.08/branches/multicreate_fixes/t/multi_create/standard.t	2009-08-04 13:20:35 UTC (rev 7191)
+++ DBIx-Class/0.08/branches/multicreate_fixes/t/multi_create/standard.t	2009-08-04 13:39:05 UTC (rev 7192)
@@ -6,7 +6,7 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan tests => 93;
+plan tests => 91;
 
 my $schema = DBICTest->init_schema();
 
@@ -329,26 +329,6 @@
 }, 'Nested find_or_create');
 
 lives_ok ( sub {
-  my $artist2 = $schema->resultset('Artist')->create({
-    name => 'Fred 4',
-    cds => [
-      {
-        title => 'Music to code by',
-        year => 2007,
-      },
-    ],
-    cds_unordered => [
-      {
-        title => 'Music to code by',
-        year => 2007,
-      },
-    ]
-  });
-
-  is($artist2->in_storage, 1, 'artist with duplicate rels inserted okay');
-}, 'Multiple same level has_many create');
-
-lives_ok ( sub {
 	my $artist = $schema->resultset('Artist')->first;
 	
 	my $cd_result = $artist->create_related('cds', {




More information about the Bast-commits mailing list