From: Vincent Pit Date: Mon, 28 Jul 2008 16:32:18 +0000 (+0200) Subject: Skip some harmless failures in t/11-args.t with old B::Deparse X-Git-Tag: v0.02~3 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=0b3c9376d654b86126708b9d63c873df6ed22811;p=perl%2Fmodules%2FB-RecDeparse.git Skip some harmless failures in t/11-args.t with old B::Deparse --- diff --git a/t/11-args.t b/t/11-args.t index f2ed33d..60dd70f 100644 --- a/t/11-args.t +++ b/t/11-args.t @@ -22,7 +22,10 @@ my $i = 1; for (@brd_args) { my $brd = B::RecDeparse->new(%$_, level => 0); my $code = $brd->coderef2text(\&wut); +SKIP: { + skip 'Harmless mismatch on "use warnings" code generation with olders B::Deparse' => 1 if $B::Deparse::VERSION < 0.71; is($code, $reference, "empty deparse and level 0 does the same thing as B::Deparse ($i)"); +} $code = eval 'sub ' . $code; is($@, '', "result compiles ($i)"); is_deeply( [ defined $code, ref $code ], [ 1, 'CODE' ], "result compiles to a code reference ($i)");