Change 17233: [PATCH] Cap.t for EBCDIC platforms

[Jarkko Hietaniemi]

Change 17233 by jhi@alpha on 2002/06/14 11:07:23

        Subject: [PATCH] Cap.t for EBCDIC platforms
        From: "Roca Carrio, Ignasi (PO EP)" <[EMAIL PROTECTED]>
        Date: Fri, 14 Jun 2002 09:53:36 +0200
        Message-ID: <[EMAIL PROTECTED]>      
 
        (why this has been working in z/OS?)

Affected files ...

.... //depot/perl/lib/Term/Cap.t#13 edit

Differences ...

==== //depot/perl/lib/Term/Cap.t#13 (text) ====
Index: perl/lib/Term/Cap.t
--- perl/lib/Term/Cap.t#12~13620~       Tue Dec 11 05:56:17 2001
+++ perl/lib/Term/Cap.t Fri Jun 14 04:07:23 2002
@@ -165,8 +165,13 @@
 
 $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 %+' );
End of Patch.