From e2bcf0a034b9c83b44158d299b2b255d328b17b0 Mon Sep 17 00:00:00 2001 From: Chimrod <> Date: Fri, 2 Feb 2024 15:00:40 +0100 Subject: New specific error message --- test/syntax_error.ml | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'test') diff --git a/test/syntax_error.ml b/test/syntax_error.ml index 490ec96..66f442d 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -228,6 +228,12 @@ end if|} (* The location name *) +let unclosed_paren2 () = + _test_instruction {| +iif(1,0,0 + iif(1, 1, 2) +|} + { level = Error; loc = _position; message = "Unclosed `(`" } + let test = ( "Syntax Errors", [ @@ -246,4 +252,5 @@ let test = Alcotest.test_case "Missing comparable" `Quick missing_comparable; Alcotest.test_case "Location change" `Quick location_change; Alcotest.test_case "Misplaced if" `Quick misplaced_if; + Alcotest.test_case "(()" `Quick unclosed_paren2; ] ) -- cgit v1.2.3