diff options
Diffstat (limited to 'test/syntax_error.ml')
| -rw-r--r-- | test/syntax_error.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/syntax_error.ml b/test/syntax_error.ml index 9d51cf3..209d3e2 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -23,7 +23,7 @@ let _test_instruction : let _location = Printf.sprintf {|# Location %s ------- |} literal in - let actual = get_report @@ Syntax.parse _location and msg = literal in + let actual = get_report @@ Syntax.parse _location and msg = _location in let () = Alcotest.(check' report ~msg ~expected ~actual) in match k with None -> () | Some f -> f actual @@ -291,7 +291,7 @@ let missing_operator () = { level = Error; loc = _position; message = "Missing operator before text" } let test = - ( "Syntax Errors", + ( __FILE__, [ Alcotest.test_case "else:" `Quick else_column; Alcotest.test_case "elseif" `Quick elseif_no_column; @@ -305,7 +305,7 @@ let test = Alcotest.test_case "Unknown function" `Quick unknow_function; Alcotest.test_case "Inline elif" `Quick inline_elif; Alcotest.test_case "Unclosed block" `Quick unclosed_block; - Alcotest.test_case "Unclosed block" `Quick comment_as_operator; + Alcotest.test_case "Comment as separator" `Quick comment_as_operator; Alcotest.test_case "Missing comparable" `Quick missing_comparable; Alcotest.test_case "Location change" `Quick location_change; Alcotest.test_case "Misplaced if" `Quick misplaced_if; |