diff options
Diffstat (limited to 't/lib/peek.t')
| -rw-r--r-- | t/lib/peek.t | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/t/lib/peek.t b/t/lib/peek.t index 288d3bdf6d..a90574f744 100644 --- a/t/lib/peek.t +++ b/t/lib/peek.t @@ -88,10 +88,10 @@ do_test( 5, do_test( 6, $c + $d, -'SV = IV\\($ADDR\\) at $ADDR +'SV = NV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(PADTMP,IOK,pIOK\\) - IV = 456'); + FLAGS = \\(PADTMP,NOK,pNOK\\) + NV = 456'); ($d = "789") += 0.1; @@ -110,8 +110,8 @@ do_test( 8, 0xabcd, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*IOK,READONLY,pIOK\\) - IV = 43981'); + FLAGS = \\(.*IOK,READONLY,pIOK,IsUV\\) + UV = 43981'); do_test( 9, undef, @@ -154,10 +154,12 @@ do_test(11, FLAGS = \\(IOK,pIOK\\) IV = 123 Elt No. 1 - SV = IV\\($ADDR\\) at $ADDR + SV = PVNV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(IOK,pIOK\\) - IV = 456'); + FLAGS = \\(IOK,NOK,pIOK,pNOK\\) + IV = 456 + NV = 456 + PV = 0'); do_test(12, {$b=>$c}, @@ -178,10 +180,12 @@ do_test(12, RITER = -1 EITER = 0x0 Elt "123" HASH = $ADDR - SV = IV\\($ADDR\\) at $ADDR + SV = PVNV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(IOK,pIOK\\) - IV = 456'); + FLAGS = \\(IOK,NOK,pIOK,pNOK\\) + IV = 456 + NV = 456 + PV = 0'); do_test(13, sub(){@_}, |