I think this is quite enough testing for a deprecated feature.

[p5sagit/p5-mst-13.2.git] / t / lib / peek.t

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 288d3bd..96e24a2 100644 (file)
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -101,7 +101,7 @@ do_test( 7,
   REFCNT = 1
   FLAGS = \\(NOK,pNOK\\)
   IV = 0
-  NV = 789\\.1
+  NV = 789\\.(?:1(?:000+\d+)?|0999+\d+)
   PV = $ADDR "789"\\\0
   CUR = 3
   LEN = 4');
@@ -171,7 +171,7 @@ do_test(12,
     IV = 1
     NV = 0
     ARRAY = $ADDR  \\(0:7, 1:1\\)
-    hash quality = 150.0%
+    hash quality = 100.0%
     KEYS = 1
     FILL = 1
     MAX = 7