[perl #121126] - Allow deparse tests to skip/ignore expected failures.

This will allow us to set up a deparse smoker to keep track of B::Deparse's
accuracy.

With this, the test run:

 TEST_ARGS=-deparse make test

will "pass" currently.

If deparsing capabilities get worse, new failures will show up and should
be fixed or added to Porting/deparse-skips.txt.

If things get fixed, the test will fail noting that something has passed
when it shouldn't have, and the test in question should be removed from
Porting/deparse-skips.txt.

Use the KEEP_DEPARSE_FILES=1 environment setting to have the deparse
test files left around after a test run for examination/re-running.

1 files changed, 2 insertions, 1 deletions

diff --git a/t/cmd/mod.t b/t/cmd/mod.t
index 07617f55b0..d3048e7920 100644
--- a/t/cmd/mod.t
+++ b/t/cmd/mod.t
@@ -32,10 +32,11 @@ if (join(' ',@y) eq '0 2 4 6 8 10 12 14 16 18 20') {
 	print "not ok 7 @y\n";
 }
 
+# Well this is fragile...
 open(foo,'./TEST') || open(foo,'TEST') || open(foo,'t/TEST');
 $x = 0;
 $x++ while <foo>;
-print $x > 50 && $x < 1000 ? "ok 8\n" : "not ok 8\n";
+print $x > 50 && $x < 2000 ? "ok 8\n" : "not ok 8\n";
 
 $x = -0.5;
 print "not " if scalar($x) < 0 and $x >= 0;