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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-11-16 22:14:13 +0000 (Sun, 16 Nov 2008)
New Revision: 5149

Modified:
   DBIx-Class/0.08/trunk/t/96multi_create.t
Log:
Revert castaway's test - mildly bogus

Modified: DBIx-Class/0.08/trunk/t/96multi_create.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96multi_create.t	2008-11-16 21:29:42 UTC (rev 5148)
+++ DBIx-Class/0.08/trunk/t/96multi_create.t	2008-11-16 22:14:13 UTC (rev 5149)
@@ -5,7 +5,7 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan tests => 62;
+plan tests => 58;
 
 my $schema = DBICTest->init_schema();
 
@@ -510,44 +510,3 @@
   );
 };
 diag $@ if $@;
-
-## test might_have/has_many interactions
-my $ff = $schema->resultset('ForceForeign');
-
-my $thing = $ff->create(
-    {
-        artist_1 => 
-        { 
-            name => 'Crazy Frog',
-            cds => 
-                [
-                 {
-                     title => 'CD1',
-                     year => 2007,
-                     artist => {
-                         name => 'Artist 1',
-                     }
-                 },
-                 {
-                     title => 'CD2',
-                     year => 2007,
-                     artist => {
-                         name => 'Artist 2',
-                     }
-                 },
-                ],
-        },
-        cd_1 => {
-            title => 'CD3',
-            year => 2008,
-            artist => {
-                name => 'Artist 3',
-            }
-        }
-    }
-    );
-
-isa_ok($thing->artist_1, 'DBICTest::Schema::Artist', 'created might_have artist');
-is($thing->artist_1->name, 'Crazy Frog');
-isa_ok($thing->artist_1->cds, 'DBIx::Class::ResultSet', 'created artists cds');
-is($thing->artist_1->cds->count, 2, 'created two cds for artist');