From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Sat, 23 Oct 2010 14:44:18 +0000 (+0200)
Subject: added tests for assigning undef to a many-to-many pseudo rel
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=64823b9f706cff82cb471b225b7852930862478c;p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate

added tests for assigning undef to a many-to-many pseudo rel
---

diff --git a/t/lib/RunTests.pm b/t/lib/RunTests.pm
index d2d83bb..c5c1c6a 100644
--- a/t/lib/RunTests.pm
+++ b/t/lib/RunTests.pm
@@ -11,7 +11,7 @@ use DBIx::Class::ResultSet::RecursiveUpdate;
 sub run_tests {
     my $schema = shift;
 
-    plan tests => 51;
+    plan tests => 53;
 
     my $dvd_rs  = $schema->resultset('Dvd');
     my $user_rs = $schema->resultset('User');
@@ -181,6 +181,11 @@ TODO: {
         'might_have record changed'
     );
 
+    my $dvd_with_tags = $dvd_rs->recursive_update({ id => $dvd->dvd_id, tags => [1, 2] });
+    is_deeply( [ map { $_->id } $dvd_with_tags->tags ], [ 1, 2 ], 'Tags set' );
+    my $dvd_without_tags = $dvd_rs->recursive_update({ id => $dvd->dvd_id, tags => undef });
+    is( $dvd_without_tags->tags->count, 0, 'Tags deleted when m2m accessor set to undef' );
+
     $new_dvd->update( { name => 'New Test Name' } );
     $updates = {
         id => $new_dvd->dvd_id,    # id instead of dvd_id