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

[chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate] / t / lib / RunTests.pm

diff --git a/t/lib/RunTests.pm b/t/lib/RunTests.pm
index d2d83bbd0af1be8b09c6dec55f4b13db2dc3e26b..c5c1c6ab0c6779f7ea23e3ca4620711574fbf575 100644 (file)
--- 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