diff options
| author | Karl Williamson <khw@cpan.org> | 2014-11-26 14:35:31 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-09 15:19:57 -0600 |
| commit | 94563b2d0982d4eb19e2dba1e0a4e975db43051d (patch) | |
| tree | a9029e136aca7520feb51eb04242e4c56e154e19 /ext/Devel-Peek | |
| parent | fedc1b0e2d9cec34b7e3b1fa65dd0f7eb4f539fd (diff) | |
| download | perl-94563b2d0982d4eb19e2dba1e0a4e975db43051d.tar.gz | |
Devel::Peek:Peek.t: Fix to work on EBCDIC
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 36 |
1 files changed, 22 insertions, 14 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index f5127b642f..e35930b987 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1043,8 +1043,16 @@ SKIP: { # a way to make a better place for it: use constant { - perl => 'rules', - beer => 'foamy', + + # The length of the rhs string must be such that if chr() is applied to it + # doesn't yield a character with a backslash mnemonic. For example, if it + # were 'rules' instead of 'rule', it would have 5 characters, and on + # EBCDIC, chr(5) is \t. The dumping code would translate all the 5's in + # MG_PTR into "\t", and this test code would be expecting \5's, so the + # tests would fail. No platform that Perl works on translates chr(4) into + # a mnemonic. + perl => 'rule', + beer => 'foam', }; unless ($Config{useithreads}) { @@ -1056,8 +1064,8 @@ unless ($Config{useithreads}) { REFCNT = 5 FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 FLAGS = \\(POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 - PV = $ADDR "rules"\\\0 - CUR = 5 + PV = $ADDR "rule"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 '); @@ -1072,8 +1080,8 @@ unless ($Config{useithreads}) { 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 5 FLAGS = \\($PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) - PV = $ADDR "rules"\\\0 - CUR = 5 + PV = $ADDR "rule"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 MAGIC = $ADDR @@ -1092,8 +1100,8 @@ unless ($Config{useithreads}) { 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 5 FLAGS = \\($PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) - PV = $ADDR "rules"\\\0 - CUR = 5 + PV = $ADDR "rule"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 MAGIC = $ADDR @@ -1111,8 +1119,8 @@ unless ($Config{useithreads}) { REFCNT = 6 FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 FLAGS = \\(POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 - PV = $ADDR "foamy"\\\0 - CUR = 5 + PV = $ADDR "foam"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 '); @@ -1123,8 +1131,8 @@ unless ($Config{useithreads}) { REFCNT = 6 FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 FLAGS = \\(POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 - PV = $ADDR "foamy"\\\0 - CUR = 5 + PV = $ADDR "foam"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 '); @@ -1132,8 +1140,8 @@ unless ($Config{useithreads}) { my $want = 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 6 FLAGS = \\($PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) - PV = $ADDR "foamy"\\\0 - CUR = 5 + PV = $ADDR "foam"\\\0 + CUR = 4 LEN = \d+ COW_REFCNT = 0 MAGIC = $ADDR |