From 64823b9f706cff82cb471b225b7852930862478c Mon Sep 17 00:00:00 2001 From: Alexander Hartmaier Date: Sat, 23 Oct 2010 16:44:18 +0200 Subject: [PATCH] added tests for assigning undef to a many-to-many pseudo rel --- t/lib/RunTests.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.45.2