diff options
Diffstat (limited to 'ext/Devel-Peek/t/Peek.t')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 34 |
1 files changed, 5 insertions, 29 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 56522af1e8..41898fea85 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -783,7 +783,7 @@ do_test('ENAME on a stash', AUX_FLAGS = 0 # $] > 5.019008 ARRAY = $ADDR KEYS = 0 - FILL = 0 \(cached = 0\) + FILL = 0 MAX = 7 RITER = -1 EITER = 0x0 @@ -806,7 +806,7 @@ do_test('ENAMEs on a stash', AUX_FLAGS = 0 # $] > 5.019008 ARRAY = $ADDR KEYS = 0 - FILL = 0 \(cached = 0\) + FILL = 0 MAX = 7 RITER = -1 EITER = 0x0 @@ -832,7 +832,7 @@ do_test('ENAMEs on a stash with no NAME', AUX_FLAGS = 0 # $] > 5.019008 ARRAY = $ADDR KEYS = 0 - FILL = 0 \(cached = 0\) + FILL = 0 MAX = 7 RITER = -1 EITER = 0x0 @@ -882,7 +882,7 @@ do_test('small hash after keys', ARRAY = $ADDR \\(0:[67],.*\\) hash quality = [0-9.]+% KEYS = 2 - FILL = [12] \\(cached = 0\\) + FILL = [12] MAX = 7 RITER = -1 EITER = 0x0 @@ -912,7 +912,7 @@ do_test('small hash after keys and scalar', ARRAY = $ADDR \\(0:[67],.*\\) hash quality = [0-9.]+% KEYS = 2 - FILL = ([12]) \\(cached = \1\\) + FILL = ([12]) MAX = 7 RITER = -1 EITER = 0x0 @@ -927,30 +927,6 @@ do_test('small hash after keys and scalar', COW_REFCNT = 1 ){2}'); -# This should immediately start with the FILL cached correctly. -my %large = (0..1999); -$b = %large; -do_test('large hash', - \%large, -'SV = $RV\\($ADDR\\) at $ADDR - REFCNT = 1 - FLAGS = \\(ROK\\) - RV = $ADDR - SV = PVHV\\($ADDR\\) at $ADDR - REFCNT = 2 - FLAGS = \\($PADMY,OOK,SHAREKEYS\\) - AUX_FLAGS = 0 # $] > 5.019008 - ARRAY = $ADDR \\(0:\d+,.*\\) - hash quality = \d+\\.\d+% - KEYS = 1000 - FILL = (\d+) \\(cached = \1\\) - MAX = 1023 - RITER = -1 - EITER = 0x0 - RAND = $ADDR - Elt .* -'); - # Dump with arrays, hashes, and operator return values @array = 1..3; do_test('Dump @array', '@array', <<'ARRAY', '', '', 1); |