This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More Peek.t fix-ups
authorFather Chrysostomos <sprout@cpan.org>
Sat, 20 Sep 2014 13:33:14 +0000 (06:33 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 20 Sep 2014 16:25:02 +0000 (09:25 -0700)
ext/Devel-Peek/t/Peek.t

index f619099..c085c77 100644 (file)
@@ -140,7 +140,8 @@ do_test('immediate constant (string)',
         "bar",
 'SV = PV\\($ADDR\\) at $ADDR
   REFCNT = 1
-  FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK\\)
+  FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\)         # $] < 5.021004
+  FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021004
   PV = $ADDR "bar"\\\0
   CUR = 3
   LEN = \\d+
@@ -158,7 +159,8 @@ do_test('immediate constant (integer)',
         456,
 'SV = IV\\($ADDR\\) at $ADDR
   REFCNT = 1
-  FLAGS = \\(.*IOK,READONLY,pIOK\\)
+  FLAGS = \\(.*IOK,READONLY,pIOK\\)            # $] < 5.021004
+  FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\)    # $] >=5.021004
   IV = 456');
 
 do_test('assignment of immediate constant (integer)',
@@ -208,14 +210,17 @@ do_test('integer constant',
         0xabcd,
 'SV = IV\\($ADDR\\) at $ADDR
   REFCNT = 1
-  FLAGS = \\(.*IOK,READONLY,pIOK\\)
+  FLAGS = \\(.*IOK,READONLY,pIOK\\)            # $] < 5.021004
+  FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\)    # $] >=5.021004
   IV = 43981');
 
 do_test('undef',
         undef,
 'SV = NULL\\(0x0\\) at $ADDR
   REFCNT = \d+
-  FLAGS = \\(READONLY\\)');
+  FLAGS = \\(READONLY\\)                       # $] < 5.021004
+  FLAGS = \\(READONLY,PROTECT\\)               # $] >=5.021004
+');
 
 do_test('reference to scalar',
         \$a,
@@ -678,7 +683,8 @@ do_test('blessed reference',
     RV = $ADDR
     SV = NULL\\(0x0\\) at $ADDR
       REFCNT = \d+
-      FLAGS = \\(READONLY\\)
+      FLAGS = \\(READONLY\\)                   # $] < 5.021004
+      FLAGS = \\(READONLY,PROTECT\\)           # $] >=5.021004
     PV = $ADDR ""
     CUR = 0
     LEN = 0
@@ -708,7 +714,8 @@ do_test('constant subroutine',
     XSUBANY = $ADDR \\(CONST SV\\)
     SV = PV\\($ADDR\\) at $ADDR
       REFCNT = 1
-      FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK\\)
+      FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\)        # $] < 5.021004
+      FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021004
       PV = $ADDR "Perl rules"\\\0
       CUR = 10
       LEN = \\d+