From: Jarkko Hietaniemi Date: Sat, 4 May 2002 16:32:45 +0000 (+0000) Subject: Add the EBCDIC test data to downgrade.t. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62cc325639f7dba953b2bb9aea6b7abcc619e617;p=p5sagit%2Fp5-mst-13.2.git Add the EBCDIC test data to downgrade.t. p4raw-id: //depot/perl@16396 --- diff --git a/ext/Storable/t/downgrade.t b/ext/Storable/t/downgrade.t index af5de4a..bbdf4dc 100644 --- a/ext/Storable/t/downgrade.t +++ b/ext/Storable/t/downgrade.t @@ -27,16 +27,6 @@ sub BEGIN { # require 'lib/st-dump.pl'; } -BEGIN { - if (ord 'A' != 65) { - die <<'EBCDIC'; -This test doesn't have EBCDIC data yet. Please run t/make_downgrade.pl using -perl 5.8 (or later) and append its output to the end of the test. -Please also mail the output to perlbug@perl.org so that the CPAN copy of -Storable can be updated. -EBCDIC - } -} use Test::More; use Storable 'thaw'; @@ -376,3 +366,127 @@ D96%U%P/EGXX``````^6?CA<'4V-H;&_#GP(````&4V-H;&_? end +begin 301 Locked hash +8!049`0````$*!9FDDX6B!`````27A9F3 + +end + +begin 301 Locked hash placeholder +C!049`0````(.%`````69I).%H@H%F:23A:(`````!)>%F9,` + +end + +begin 301 Locked keys +8!049`0````$*!9FDDX6B``````27A9F3 + +end + +begin 301 Locked keys placeholder +C!049`0````(.%`````69I).%H@H%F:23A:(`````!)>%F9,` + +end + +begin 301 Short 8 bit utf8 data +&!047`HMS + +end + +begin 301 Short 8 bit utf8 data as bytes +&!04*`HMS + +end + +begin 301 Long 8 bit utf8 data +M!04!```"`(MSBW.+#B.6CA8&D``````>#B.6C +FA8&D"@?B@XB3EHMS`@````;B@XB3EM\*!-QD#B.6CA8&D``````>#B.6C +FA8&D%P?B@XB3EHMS`@````;B@XB3EM\7!-QD