Cap.t for EBCDIC platforms

From: "Roca Carrio, Ignasi (PO EP)" <Ignasi.Roca@fujitsu-siemens.com>
Message-ID: <318B95F90D8BD41194A5009027FD5FFBD7A3B1@madrid14.mad.fsc.net>
(why this has been working in z/OS?)

p4raw-id: //depot/perl@17233

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 5014aca..0ea537d 100644 (file)
--- a/lib/Term/Cap.t
+++ b/lib/Term/Cap.t
@@ -165,8 +165,13 @@ is( $out->read(), 'a1', 'Tgoto() should print to filehandle if passed' );
 
 $t->{_test} = "a%.";
 like( $t->Tgoto('test', '', 1), qr/^a\x01/, 'Tgoto() should handle %.' );
+if (ord('A') == 193) {  # EBCDIC platform
+like( $t->Tgoto('test', '', 0), qr/\x81\x01\x16/, 
+       'Tgoto() should handle %. and magic' );
+} else { # ASCII platform
 like( $t->Tgoto('test', '', 0), qr/\x61\x01\x08/, 
        'Tgoto() should handle %. and magic' );
+}
 
 $t->{_test} = 'a%+';
 like( $t->Tgoto('test', '', 1), qr/a\x01/, 'Tgoto() should handle %+' );