X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F15-self.t;h=0550dc4adae5fe7927b49ed9bd1935123e70196a;hb=ae89b589d2187cf0ed57bbb6132b9d4a8da29abb;hp=a205ea51e1e1414da6d968244a0495ede4ec1f38;hpb=4de8639a5eb25d672b6248bd80e433abd0a267e2;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/15-self.t b/t/15-self.t index a205ea5..0550dc4 100644 --- a/t/15-self.t +++ b/t/15-self.t @@ -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";