diff options
| author | Yves Orton <demerphq@gmail.com> | 2013-03-24 11:48:12 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2013-03-24 11:50:18 +0100 |
| commit | e1a7ec8d453649a65aea34af90c3042a5137191e (patch) | |
| tree | c865e78cabc2b4ec7436679e51e55609c6d397cb /ext | |
| parent | ff20b672a2557d27fcb80d597224fa0c24e43f73 (diff) | |
| download | perl-e1a7ec8d453649a65aea34af90c3042a5137191e.tar.gz | |
improve how Devel::Peek::Dump handles iterator information
* If the hash is not OOK omit any iterator status information
instead of showing -1/NULL
* If the hash is OOK then add the RAND value from the iterator
and if the LASTRAND is not the same show it too
* Tweak tests to test the above.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 912bf8c1cb..1debcb55f5 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -250,8 +250,6 @@ do_test('reference to hash', KEYS = 1 FILL = 1 MAX = 7 - RITER = -1 - EITER = 0x0 Elt "123" HASH = $ADDR' . $c_pattern, '', $] > 5.009 && $] < 5.015 @@ -400,9 +398,7 @@ do_test('reference to blessed hash', ARRAY = 0x0 KEYS = 0 FILL = 0 - MAX = 7 - RITER = -1 - EITER = 0x0', '', + MAX = 7', '', $] > 5.009 ? $] >= 5.015 ? 0 @@ -477,8 +473,6 @@ do_test('reference to hash containing Unicode', KEYS = 1 FILL = 1 MAX = 7 - RITER = -1 - EITER = $ADDR Elt "\\\214\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 @@ -508,8 +502,6 @@ do_test('reference to hash containing Unicode', KEYS = 1 FILL = 1 MAX = 7 - RITER = -1 - EITER = $ADDR Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 @@ -723,9 +715,7 @@ do_test('blessing to a class with embedded NUL characters', ARRAY = $ADDR KEYS = 0 FILL = 0 - MAX = 7 - RITER = -1 - EITER = 0x0', '', + MAX = 7', '', $] > 5.009 ? $] >= 5.015 ? 0 @@ -749,6 +739,7 @@ do_test('ENAME on a stash', MAX = 7 RITER = -1 EITER = 0x0 + RAND = $ADDR NAME = "RWOM" ENAME = "RWOM" # $] > 5.012 '); @@ -772,6 +763,7 @@ do_test('ENAMEs on a stash', MAX = 7 RITER = -1 EITER = 0x0 + RAND = $ADDR NAME = "RWOM" NAMECOUNT = 2 # $] > 5.012 ENAME = "RWOM", "KLANK" # $] > 5.012 @@ -797,6 +789,7 @@ do_test('ENAMEs on a stash with no NAME', MAX = 7 RITER = -1 EITER = 0x0 + RAND = $ADDR NAMECOUNT = -3 # $] > 5.012 ENAME = "RWOM", "KLANK" # $] > 5.012 '); |