From ed1365aedbc69eea0b9c8338d97ec096542e4c2a Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Mon, 15 Jan 2024 17:22:23 +0100
Subject: Ignore the _ character when used as a forced line break

---
 test/syntax.ml | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'test/syntax.ml')

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;
-- 
cgit v1.2.3