diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-15 18:11:15 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-15 18:11:15 +0000 |
| commit | 84dc725ede41be18dae9c782ef6d2c34d4ad6507 (patch) | |
| tree | f60174da35b5d267a5837c34f1cc19954993e5c3 /t | |
| parent | 32f89c243c0c38afa69e98a388712c0147bf0a40 (diff) | |
| parent | b8910b2b56995309bef717df9763955d40a4e5e8 (diff) | |
| download | perl-84dc725ede41be18dae9c782ef6d2c34d4ad6507.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@16612
Diffstat (limited to 't')
| -rw-r--r-- | t/run/fresh_perl.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index d49cddc54d..acc595f50d 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. - |