From: Peter Rabbitson Date: Sun, 16 Nov 2008 22:14:13 +0000 (+0000) Subject: Revert castaway's test - mildly bogus X-Git-Tag: v0.08240~236 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72dacbc5825c4fd88d907af540b1b23a3356dcb3;p=dbsrgits%2FDBIx-Class.git Revert castaway's test - mildly bogus --- diff --git a/t/96multi_create.t b/t/96multi_create.t index f767327..6461ad7 100644 --- a/t/96multi_create.t +++ b/t/96multi_create.t @@ -5,7 +5,7 @@ use Test::More; use lib qw(t/lib); use DBICTest; -plan tests => 62; +plan tests => 58; my $schema = DBICTest->init_schema(); @@ -510,44 +510,3 @@ eval { ); }; 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');