From: Vincent Pit <vince@profvince.com>
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)");