X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=t%2F15-self.t;h=0550dc4adae5fe7927b49ed9bd1935123e70196a;hp=a205ea51e1e1414da6d968244a0495ede4ec1f38;hb=7f3b1ec01ca3856b1d5670ab9795cf0e91ba8928;hpb=be9ad15f2ed3bec04d8186bbdf592b98f10e693d 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";