diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-18 15:55:22 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-18 15:55:22 +0000 |
| commit | 8aacddc1ea3837f8f1a911d90c644451fc7cfc86 (patch) | |
| tree | 6fd7ff4a46f0cbed519fe92c6244f38388482172 /ext/Devel/Peek | |
| parent | 7b5d8bbce1bc254559797266031a88531cfece6b (diff) | |
| download | perl-8aacddc1ea3837f8f1a911d90c644451fc7cfc86.tar.gz | |
Tidied version of Jeffrey Friedl's <jfriedl@yahoo.com> restricted hashes
- added delete of READONLY value inhibit & test for same
- re-tabbed
p4raw-id: //depot/perlio@13760
Diffstat (limited to 'ext/Devel/Peek')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 4062461d66..9be948cae7 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -27,6 +27,7 @@ sub do_test { if (open(IN, "peek$$")) { local $/; $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g; + $pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?|\\d+)/g; print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; @@ -187,7 +188,7 @@ do_test(12, REFCNT = 2 FLAGS = \\(SHAREKEYS\\) IV = 1 - NV = 0 + NV = $FLOAT ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% KEYS = 1 @@ -348,7 +349,7 @@ do_test(19, REFCNT = 2 FLAGS = \\(SHAREKEYS\\) IV = 1 - NV = 0 + NV = $FLOAT ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% KEYS = 1 |