diff options
| author | Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com> | 2002-06-14 11:53:36 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 11:07:23 +0000 |
| commit | 5b48932ff6c319f0afe4a6116e91ea85061df4a5 (patch) | |
| tree | 6d716528220ba48a0ab4c62967f98656fa1847fb /lib/Term | |
| parent | 9adaed53e8c5c02c21962f77d92b04411cd1a8b5 (diff) | |
| download | perl-5b48932ff6c319f0afe4a6116e91ea85061df4a5.tar.gz | |
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
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/Cap.t | 5 |
1 files changed, 5 insertions, 0 deletions
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 %+' ); |