From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 15 May 2002 13:47:40 +0000 (+0000)
Subject: Make fresh_perl skip the embedded UTF-8 tests on EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b97a373db867c364a61b01c76249d062b3b95526;p=p5sagit%2Fp5-mst-13.2.git

Make fresh_perl skip the embedded UTF-8 tests on EBCDIC.

p4raw-id: //depot/perl@16610
---

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 5d832b9..df5151d 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -2965,7 +2965,6 @@ tests have been added.
                                                               834 845
  op/sprintf.t                               224    3   1.34%  98 100 136
  op/tr.t                                     97    5   5.15%  63 71-74
- run/fresh_perl.t                            95    3   3.16%  92-94
  uni/fold.t                                 780    6   0.77%  61 169 196 661
                                                               710-711
 
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index d49cddc..acc595f 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -52,6 +52,13 @@ foreach my $prog (@prgs) {
 
     my($prog,$expected) = split(/\nEXPECT\n/, $raw_prog);
 
+    if ($prog =~ /^\# SKIP: (.+)/m) {
+	if (eval $1) {
+	    ok(1, "Skip: $1");
+	    next;
+	}
+    }
+
     $expected =~ s/\n+$//;
 
     fresh_perl_is($prog, $expected, { switches => [$switch] }, $name);
@@ -789,6 +796,7 @@ $test = Foo->new(); # must be package var
 EXPECT
 ok
 ######## example from Camel 5, ch. 15, pp.406 (with my)
+# SKIP: ord "A" == 193 # EBCDIC
 use strict;
 use utf8;
 my $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
@@ -797,6 +805,7 @@ print $人, "\n";
 EXPECT
 3
 ######## example from Camel 5, ch. 15, pp.406 (with our)
+# SKIP: ord "A" == 193 # EBCDIC
 use strict;
 use utf8;
 our $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
@@ -805,6 +814,7 @@ print $人, "\n";
 EXPECT
 3
 ######## example from Camel 5, ch. 15, pp.406 (with package vars)
+# SKIP: ord "A" == 193 # EBCDIC
 use utf8;
 $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
 $人++; # a child is born
@@ -817,4 +827,3 @@ tie FH, 'main';
 EXPECT
 Can't modify constant item in tie at - line 2, near "'main';"
 Execution of - aborted due to compilation errors.
-