X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdelete%2Frelated.t;h=d4dc26b5e92b9bd17a3e91cc197e6ccbf76eff51;hb=26c663f1;hp=f8e1d97707c101c7c1bf415c5a6e36ab3983e885;hpb=65d351219882184861384aedac6f251b6797d0d7;p=dbsrgits%2FDBIx-Class.git diff --git a/t/delete/related.t b/t/delete/related.t index f8e1d97..d4dc26b 100644 --- a/t/delete/related.t +++ b/t/delete/related.t @@ -52,7 +52,7 @@ is ($cdrs->count, $total_cds -= 2, 'related + condition delete ok'); $a2_cds->search ({}, { rows => 1})->delete; is ($cdrs->count, $total_cds -= 1, 'related + limit delete ok'); -TODO: { +{ local $TODO = 'delete_related is based on search_related which is based on search which does not understand object arguments'; local $SIG{__WARN__} = sub {}; # trap the non-numeric warning, remove when the TODO is removed