X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdelete%2Frelated.t;h=f8e1d97707c101c7c1bf415c5a6e36ab3983e885;hb=65d351219882184861384aedac6f251b6797d0d7;hp=12bc43ae9f0a3957fbadb95f7c3c7b39e09f05f4;hpb=9345b14c6c86aa8888bf5d47a569ee9bbde24f47;p=dbsrgits%2FDBIx-Class.git diff --git a/t/delete/related.t b/t/delete/related.t index 12bc43a..f8e1d97 100644 --- a/t/delete/related.t +++ b/t/delete/related.t @@ -1,11 +1,10 @@ -use Test::More; use strict; use warnings; +use Test::More; + use lib qw(t/lib); use DBICTest; -plan tests => 4; - my $schema = DBICTest->init_schema(); my $ars = $schema->resultset('Artist'); @@ -60,4 +59,9 @@ TODO: { my $cd2pr_count = $cd2pr_rs->count; $prod_cd->delete_related('cd_to_producer', { producer => $prod } ); is ($cd2pr_rs->count, $cd2pr_count -= 1, 'm2m link deleted succesfully'); + + # see 187ec69a for why this is neccessary + $prod->result_source(undef); } + +done_testing;