diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:08:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:08:10 +0000 |
| commit | cdb2dd7b4ee19fda563e304299e333d9e59c2c9e (patch) | |
| tree | c6a397c6dc62ed45d4fdaaeeee30b5d1db25f898 /ext | |
| parent | 0ef00eb6701415c9339a7b643581bac5c191c738 (diff) | |
| download | perl-cdb2dd7b4ee19fda563e304299e333d9e59c2c9e.tar.gz | |
UTF-EBCDIC.
p4raw-id: //depot/perl@13300
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index dde4cd14ba..5144be710d 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -317,6 +317,16 @@ do_test(17, FLAGS = $ADDR EGV = $ADDR\\t"a"'); +if (ord('A') == 193) { +do_test(18, + chr(256).chr(0).chr(512), +'SV = PV\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\) + PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] + CUR = 5 + LEN = 6'); +} else { do_test(18, chr(256).chr(0).chr(512), 'SV = PV\\($ADDR\\) at $ADDR @@ -325,7 +335,35 @@ do_test(18, PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] CUR = 5 LEN = 6'); +} +if (ord('A') == 193) { +do_test(19, + {chr(256)=>chr(512)}, +'SV = RV\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(ROK\\) + RV = $ADDR + SV = PVHV\\($ADDR\\) at $ADDR + REFCNT = 2 + FLAGS = \\(SHAREKEYS\\) + IV = 1 + NV = 0 + ARRAY = $ADDR \\(0:7, 1:1\\) + hash quality = 100.0% + KEYS = 1 + FILL = 1 + MAX = 7 + RITER = -1 + EITER = $ADDR + Elt "\\\241\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR + SV = PV\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(POK,pPOK,UTF8\\) + PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\] + CUR = 2 + LEN = 3'); +} else { do_test(19, {chr(256)=>chr(512)}, 'SV = RV\\($ADDR\\) at $ADDR @@ -351,6 +389,7 @@ do_test(19, PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\] CUR = 2 LEN = 3'); +} END { 1 while unlink("peek$$"); |