Commits

camlspotter  committed 5523ccf

test script update

  • Participants
  • Parent commits 24bb954
  • Branches ocamlspot

Comments (0)

Files changed (1)

File ocamlspot/tests/auto-test.pl

 	while(<IN>){} # avoid Broken pipe
 	close IN;
 	if( ! $tested ){
-	    print STDERR "$file:$test_pos:$test_name:\tNOT FOUND!\n";
+	    if( $test_name =~ /impos/ ){ # This is not a bug. Known impossible.
+		print STDERR "$file:$test_pos:$test_name:\tnot found, but a known issue\n";
+		$all_succeeds ++;
+	    } else {
+		print STDERR "$file:$test_pos:$test_name:\tNOT FOUND!\n";
+	    }
 	}
     }
 }
 
 $ratio = $all_succeeds/$all_tests;
 printf "successes/tests = $all_succeeds/$all_tests = %.02f\n", $ratio;
-if( $ratio > 0.9 ){
+if( $ratio == 1.0  ){
     print "Looks ok\n"; 
     exit 0;
 } else {
-    print "Too many tests failed!\n"; 
+    print "Some tests failed!\n"; 
     exit 1;
 }