In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f3ce8053656a98bd26491b7d3bd1ab8d4b1aa855?hp=d3e7e09755575a097017ac49465f768c29d59c7c>
- Log -----------------------------------------------------------------
commit f3ce8053656a98bd26491b7d3bd1ab8d4b1aa855
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sat Jun 11 13:40:59 2011 -0700
Remove TODO markers from Devel::Peek tests
These all pass now as of commit b56985536ef7.
-----------------------------------------------------------------------
Summary of changes:
ext/Devel-Peek/t/Peek.t | 23 ++++++++++++++++++-----
1 files changed, 18 insertions(+), 5 deletions(-)
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 46be49c..ab30b2f 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -253,7 +253,8 @@ do_test('reference to hash',
EITER = 0x0
Elt "123" HASH = $ADDR' . $c_pattern,
'',
- $] > 5.009 && 'The hash iterator used in dump.c sets the OOK flag');
+ $] > 5.009 && $] < 5.015
+ && 'The hash iterator used in dump.c sets the OOK flag');
do_test('reference to anon sub with empty prototype',
sub(){@_},
@@ -394,7 +395,10 @@ do_test('reference to blessed hash',
MAX = 7
RITER = -1
EITER = 0x0', '',
- $] > 5.009 ? 'The hash iterator used in dump.c sets the OOK flag'
+ $] > 5.009
+ ? $] >= 5.015
+ ? 0
+ : 'The hash iterator used in dump.c sets the OOK flag'
: "Something causes the HV's array to become allocated");
do_test('typeglob',
@@ -474,7 +478,10 @@ do_test('reference to hash containing Unicode',
PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\]
CUR = 2
LEN = \\d+',
- $] > 5.009 ? 'The hash iterator used in dump.c sets the OOK flag'
+ $] > 5.009
+ ? $] >= 5.015
+ ? 0
+ : 'The hash iterator used in dump.c sets the OOK flag'
: 'sv_length has been called on the element, and cached the result in
MAGIC');
} else {
do_test('reference to hash containing Unicode',
@@ -502,7 +509,10 @@ do_test('reference to hash containing Unicode',
PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\]
CUR = 2
LEN = \\d+', '',
- $] > 5.009 ? 'The hash iterator used in dump.c sets the OOK flag'
+ $] > 5.009
+ ? $] >= 5.015
+ ? 0
+ : 'The hash iterator used in dump.c sets the OOK flag'
: 'sv_length has been called on the element, and cached the result in
MAGIC');
}
@@ -699,7 +709,10 @@ do_test('blessing to a class with embedded NUL characters',
MAX = 7
RITER = -1
EITER = 0x0', '',
- $] > 5.009 ? 'The hash iterator used in dump.c sets the OOK flag'
+ $] > 5.009
+ ? $] >= 5.015
+ ? 0
+ : 'The hash iterator used in dump.c sets the OOK flag'
: "Something causes the HV's array to become allocated");
do_test('ENAME on a stash',
--
Perl5 Master Repository
