diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-01-26 06:47:46 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-27 02:26:03 +0000 |
| commit | b2010bf66cbe5557362ab7fce827491534c119be (patch) | |
| tree | d3cb77eefde20f065ee2cba8f87439199de0b69d | |
| parent | 8dd596ccf38b17b68132a551e4cc0b86a81e52c0 (diff) | |
| download | perl-b2010bf66cbe5557362ab7fce827491534c119be.tar.gz | |
a peek at uuencoded EBCDIC (st-06compat.t)
Message-ID: <Pine.OSF.4.10.10101261443561.14820-100000@aspara.forte.com>
p4raw-id: //depot/perl@8557
| -rw-r--r-- | t/lib/st-06compat.t | 27 |
1 files changed, 24 insertions, 3 deletions
diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t index e1a0780e5e..236d1134dc 100644 --- a/t/lib/st-06compat.t +++ b/t/lib/st-06compat.t @@ -86,15 +86,27 @@ sub obj { $_[0]->{obj} } package main; +my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0; + my $r = ROOT->make; my $data = ''; while (<DATA>) { - next if /^#/; - $data .= unpack("u", $_); + if (!$Is_EBCDIC) { + next if /^#/; + $data .= unpack("u", $_); + } + else { + next if /^#$/; + next if /^#\s+/; + next if /^[^#]/; + s/^#//; + $data .= unpack("u", $_); + } } -ok 1, length $data == 278; +my $expected_length = $Is_EBCDIC ? 217 : 278; +ok 1, length $data == $expected_length; my $y = thaw($data); ok 2, 1; @@ -130,3 +142,12 @@ M6%A8`````6$$`@````4$`@````$(@%AB!E-)35!,15A8!`(````!"(%88@93 M24U03$586`0"`````0B"6&(&4TE-4$Q%6%@$`@````$(@UAB!E-)35!,15A8 M!`(````!"(188@9324U03$586%A8`````V]B:@0,!``````*6%A8`````W)E (9F($4D]/5%@` +# +# using Storable-1.007, output of: print '#' . pack("u", nfreeze(ROOT->make)); +# on OS/390 (cp 1047) original size: 217 bytes +# +#M!0,1!-G6UN,#````!00,!!$)X\G%Q&W(P>+(`P````(*!*6!D_$````$DH6H +#M\0H$I8&3\@````22A:CR`````YF%A@0"````!@B!"(`(?0H(8/-+\?3Q]?D) +#M```!R`H#]$OU`````Y6DE`0"````!001!N+)U-?3Q0(````!"(`$$@("```` +#M`0B!!!("`@````$(@@02`@(````!"(,$$@("`````0B$`````Y:"D00````` +#E!`````&(!`(````#"@:BHYF)E8<$``````0$```````````!@0`` |