- $te = $test;
- chop($te);
- print "$te" . '.' x (18 - length($te));
- if ($sharpbang) {
- -x $test || (print "isn't executable.\n");
- open(RESULTS,"./$test |") || (print "can't run.\n");
- } else {
- open(SCRIPT,"$test") || die "Can't run $test.\n";
+ # +3 : we want three dots between the test name and the "ok"
+ # -2 : the .t suffix
+ $dotdotdot = $maxlen + 3 - 2;
+ while ($test = shift @tests) {
+
+ if ( $infinite{$test} && $type eq 'compile' ) {
+ print STDERR "$test creates infinite loop! Skipping.\n";
+ next;
+ }
+ if ($test =~ /^$/) {
+ next;
+ }
+ $te = $test;
+ chop($te);
+ print "$te" . '.' x ($dotdotdot - length($te));
+
+ open(SCRIPT,"<$test") or die "Can't run $test.\n";