From 949c5a8fcded63484f9351cc52957e5e61c964fb Mon Sep 17 00:00:00 2001
From: Zbigniew Lukasiak <zby@cpan.org>
Date: Tue, 18 May 2010 21:38:24 +0200
Subject: [PATCH] test for deleting a might_have

---
 t/96multi_create.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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;
-- 
2.45.2