study.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
$Ok_Level = 0;
my $test = 1;
local $_;
# You have to do it this way or VMS will get confused.
$test++;
return $ok;
}
local $Ok_Level = 1;
}
use Config;
my $test = shift;
my $match;
eval {
};
local $Ok_Level = 1;
}
print "1..26\n";
$x = "abc\ndef\n";
$* = 1;
$* = 0;
$_ = '123';
$_ = 'aaabbbccc';
$_ = 'aaabccc';
$_ = 'aaaccc';
$_ = 'abcdef';
$* = 1; # test 3 only tested the optimized version--this one is for real
# Even with the alarm() OS/390 and BS2000 can't manage these tests
# (Perl just goes into a busy loop, luckily an interruptable one)
for (25..26) { print "not ok $_ # TODO compiler bug?\n" }
$test += 2;
} else {
# [ID 20010618.006] tests 25..26 may loop
$_ = 'FGF';
alarm_ok { /[F]F$/ };
}