let check_fail file = let ic = open_in file in try begin let l = input_line ic in try (close_in ic ; l = "FAIL") with Scanf.Scan_failure _ -> (close_in ic ; false) end with End_of_file -> (close_in ic ; false)