Add test for Net::protoent.

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

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 288d3bd..c14dc9b 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
@@ -251,7 +251,7 @@ do_test(15,
     PV = 0
     MAGIC = $ADDR
       MG_VIRTUAL = $ADDR
-      MG_TYPE = \'r\'
+      MG_TYPE = PERL_MAGIC_qr\(r\)
       MG_OBJ = $ADDR
     STASH = $ADDR\\t"Regexp"');
 
@@ -283,7 +283,7 @@ do_test(17,
   NV = 0
   MAGIC = $ADDR
     MG_VIRTUAL = &PL_vtbl_glob
-    MG_TYPE = \'\\*\'
+    MG_TYPE = PERL_MAGIC_glob\(\*\)
     MG_OBJ = $ADDR
   NAME = "a"
   NAMELEN = 1