From: Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com>
Date: Fri, 14 Jun 2002 09:53:36 +0000 (+0200)
Subject: Cap.t for EBCDIC platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b48932ff6c319f0afe4a6116e91ea85061df4a5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 %+' );