From 8aacddc1ea3837f8f1a911d90c644451fc7cfc86 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Tue, 18 Dec 2001 15:55:22 +0000 Subject: Tidied version of Jeffrey Friedl's restricted hashes - added delete of READONLY value inhibit & test for same - re-tabbed p4raw-id: //depot/perlio@13760 --- ext/Devel/Peek/Peek.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'ext/Devel') 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 = ; 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 -- cgit v1.2.1