From: Zbigniew Lukasiak <zby@cpan.org>
Date: Tue, 18 May 2010 19:38:24 +0000 (+0200)
Subject: test for deleting a might_have
X-Git-Url: https://git.brokenzipper.com/gitweb?a=commitdiff_plain;h=949c5a8fcded63484f9351cc52957e5e61c964fb;p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate

test for deleting a might_have
---

diff --git a/t/96multi_create.t b/t/96multi_create.t
index 6ef75d6..9ffd131 100644
--- a/t/96multi_create.t
+++ b/t/96multi_create.t
@@ -754,12 +754,16 @@ my $might_have = {
 ok my $might_have_cd_rs = $schema->resultset('CD'), 'got a good resultset';
 ok my $might_have_cd_row = $might_have_cd_rs->first, 'got cd to test';
 
+my $track = $schema->resultset ('Track')->next;
+$might_have_cd_row->single_track_row( $track );
+$might_have_cd_row->update;
+
 DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
     resultset => $might_have_cd_rs,
     updates => $might_have,
     object => $might_have_cd_row,
 );
 
-ok $schema->resultset('Track')->recursive_update($might_have), 'handled might_have';
+is( $might_have_cd_row->single_track, undef, 'Might have deleted' );
 
 1;