From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 26 Jan 2001 14:47:46 +0000 (-0800)
Subject: a peek at uuencoded EBCDIC (st-06compat.t)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b2010bf66cbe5557362ab7fce827491534c119be;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t
index e1a0780..236d113 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``