From 5b48932ff6c319f0afe4a6116e91ea85061df4a5 Mon Sep 17 00:00:00 2001 From: "Roca Carrio, Ignasi (PO EP)" Date: Fri, 14 Jun 2002 11:53:36 +0200 Subject: Cap.t for EBCDIC platforms From: "Roca Carrio, Ignasi (PO EP)" Message-ID: <318B95F90D8BD41194A5009027FD5FFBD7A3B1@madrid14.mad.fsc.net> (why this has been working in z/OS?) p4raw-id: //depot/perl@17233 --- lib/Term/Cap.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t index 5014aca596..0ea537dcdf 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 %+' ); -- cgit v1.2.1