diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/syntax.ml | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/syntax.ml b/test/syntax.ml index 126d323..f64129f 100644 --- a/test/syntax.ml +++ b/test/syntax.ml @@ -594,6 +594,31 @@ let test_if_inline_act () = }; ] +let test_if_multiline () = + _test_instruction {|if 1 _ + and hour >= 8: 1|} + [ + Ast.If + { + loc = _position; + then_ = + ( _position, + Ast.BinaryOp + ( _position, + Qsp_syntax.T.And, + Ast.Integer (_position, "1"), + Ast.BinaryOp + ( _position, + Qsp_syntax.T.Gte, + Ast.Ident + { Ast.pos = _position; name = "HOUR"; index = None }, + Ast.Integer (_position, "8") ) ), + [ Tree.Ast.Expression (Tree.Ast.Integer (_position, "1")) ] ); + elifs = []; + else_ = []; + }; + ] + let test_if_inline_act2 () = _test_instruction "if 1: act 'go': gt 'go' &! comment " [ @@ -907,6 +932,7 @@ let test = Alcotest.test_case "If inline &!" `Quick test_if_inline_comment; Alcotest.test_case "If inline & !!" `Quick test_if_inline_comment2; Alcotest.test_case "If : act" `Quick test_if_inline_act; + Alcotest.test_case "If _ and " `Quick test_if_multiline; Alcotest.test_case "If : act: &!" `Quick test_if_inline_act2; Alcotest.test_case "Precedence1" `Quick test_precedence; Alcotest.test_case "Precedence2" `Quick test_precedence2; |