diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-11 13:40:59 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-11 13:40:59 -0700 |
| commit | f3ce8053656a98bd26491b7d3bd1ab8d4b1aa855 (patch) | |
| tree | 60ce477fd34a20cb99058decd01504e213e973e5 /ext/Devel-Peek | |
| parent | d3e7e09755575a097017ac49465f768c29d59c7c (diff) | |
| download | perl-f3ce8053656a98bd26491b7d3bd1ab8d4b1aa855.tar.gz | |
Remove TODO markers from Devel::Peek tests
These all pass now as of commit b56985536ef7.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | 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 46be49c061..ab30b2f8a0 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', |