X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F15-self.t;h=adc4ec7a59e9d056eb4da86b116ff9fc11892540;hb=431bf25f01990d10db1b7da5762b087b38cf4ff8;hp=a205ea51e1e1414da6d968244a0495ede4ec1f38;hpb=4de8639a5eb25d672b6248bd80e433abd0a267e2;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/15-self.t b/t/15-self.t index a205ea5..adc4ec7 100644 --- a/t/15-self.t +++ b/t/15-self.t @@ -1,4 +1,4 @@ -#!perl -T +#!perl use strict; use warnings; @@ -162,10 +162,7 @@ my $c = 0; } if ($die) { - SKIP: { - skip 'error not propagated' => 1 if $magic eq 'free'; - like $err, qr/^oops at/, "$desc: correct error"; - } + like $err, qr/^oops at/, "$desc: correct error"; is $res, undef, "$desc: returned undef"; } else { is $err, '', "$desc: no error";