fix: while expression in seq expression

1 files changed, 33 insertions, 0 deletions

diff --git a/test/corpus/expr.txt b/test/corpus/expr.txt
index 0c2913630..cecf85932 100644
--- a/test/corpus/expr.txt
+++ b/test/corpus/expr.txt
@@ -2451,3 +2451,36 @@ let x =
                 (identifier))
               (const
                 (string))))))))
+
+================================================================================
+while expression in sequential expression
+================================================================================
+
+do
+    while true do
+        true
+
+    match x with
+    | true -> 1
+
+--------------------------------------------------------------------------------
+
+(file
+  (value_declaration
+    (do
+      (sequential_expression
+        (while_expression
+          (const
+            (bool))
+          (const
+            (bool)))
+        (match_expression
+          (long_identifier_or_op
+            (long_identifier
+              (identifier)))
+          (rules
+            (rule
+              (const_pattern
+                (bool))
+              (const
+                (int)))))))))