Subject: | 20_DPeek.t fix patch |
Hi H.Merijn,
As you know, Test::NoWarnings must be counted among test counts, so we can't
write "skip_all". I understand you might want to ignore when NO_SV_PEEK is 1, in
which case maybe Data::Peek is meaningless. I, however, want to use this module
nonetheless.
May I ask you a favour? Could you apply the attached patch?
Best regards,
Taro Nishino
Subject: | 20_DPeek.t.diff.txt |
--- 20_DPeek.t.orig Sat Nov 7 09:59:11 2009
+++ 20_DPeek.t Sat Nov 7 11:17:35 2009
@@ -10,14 +10,12 @@
$| = 1;
+SKIP: {
my $peek = DPeek (0);
if ($peek =~ m/^Your perl did not/) {
- plan skip_all => $peek;
+ skip($peek, 49);
}
-else {
plan tests => 50;
- }
-
like (DPeek ($/), qr'^PVMG\("\\(n|12)"\\0\)', '$/');
is (DPeek ($\), 'PVMG()', '$\\');
is (DPeek ($.), 'PVMG()', '$.');
@@ -73,8 +71,7 @@
SKIP: {
$] <= 5.008001 and skip "UTF8 tests useless in this ancient perl version", 1;
$VAR = "a\x0a\x{20ac}";
- like (DPeek ($VAR), qr'^PVIV\("a\\(n|12)\\342\\202\\254"\\0\) \[UTF8 "a\\?n\\x{20ac}"\]',
- ' $VAR "a\x0a\x{20ac}"');
+ like (DPeek ($VAR), qr'^PVIV\("a\\(n|12)\\342\\202\\254"\\0\) \[UTF8 "a\\?n\\x{20ac}"\]', ' $VAR "a\x0a\x{20ac}"');
}
$VAR = sub { "VAR" };
is (DPeek ($VAR), '\CV(__ANON__)', ' $VAR sub { "VAR" }');
@@ -92,5 +89,5 @@
is (DPeek (*VAR{IO}), '\IO()', ' *VAR{IO}');
is (DPeek (*VAR{FORMAT}),$]<5.008?'SV_UNDEF':'\FM()',' *VAR{FORMAT}');
}
-
+ }
1;