1N/A chdir 't' if -d 't'; 1N/A # You have to do it this way or VMS will get confused. 1N/A ok( !$match && !$@, 'testing studys that used to hang' ); 1N/Aok(/(a*b*)(c*)/ && $1 eq 'aaabbb' && $2 eq 'ccc'); 1N/Aok(/(a+b+c+)/ && $1 eq 'aaabbbccc'); 1N/A$* = 1; # test 3 only tested the optimized version--this one is for real 1N/A # Even with the alarm() OS/390 and BS2000 can't manage these tests 1N/A # (Perl just goes into a busy loop, luckily an interruptable one) 1N/A for (25..26) { print "not ok $_ # TODO compiler bug?\n" } 1N/A # [ID 20010618.006] tests 25..26 may loop