diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 13:59:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 13:59:01 +0000 |
| commit | 51153910ec88cd710ff852cd0a91ef9d95febb79 (patch) | |
| tree | a86f30f1a4547ce2708b2bade9af8dbc0670dc05 /t | |
| parent | d4204c170694c18ba7693d4ee18d873c04b63e69 (diff) | |
| download | perl-51153910ec88cd710ff852cd0a91ef9d95febb79.tar.gz | |
Avoid the two study tests in OS/390 until the bug has been solved.
p4raw-id: //depot/perl@11136
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/study.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/study.t b/t/op/study.t index 348de79ab5..0c111ea9cc 100755 --- a/t/op/study.t +++ b/t/op/study.t @@ -71,8 +71,12 @@ if (/^$_$/) {print "ok 23\n";} else {print "not ok 23\n";} $* = 1; # test 3 only tested the optimized version--this one is for real if ("ab\ncd\n" =~ /^cd/) {print "ok 24\n";} else {print "not ok 24\n";} -# [ID 20010618.006] tests 25..26 may loop -{ +if ($^O eq 'os390') { + # Even with the alarm() OS/390 can't manage these tests + # (Perl just goes into a busy loop, luckily an interruptable one) + for (25..26) { print "not ok $_ # compiler bug?\n" } +} else { + # [ID 20010618.006] tests 25..26 may loop use Config; my $have_alarm = $Config{d_alarm}; local $SIG{ALRM} = sub { die "timeout\n" }; @@ -96,3 +100,4 @@ if ("ab\ncd\n" =~ /^cd/) {print "ok 24\n";} else {print "not ok 24\n";} print "not ok 26\t# " . $@ || "should not match\n"; } } + |