tests to warn when a table is unclosed

src/parser/test/test_tables.ml

@@ -82,6 +82,18 @@ let%expect_test _ =
              (align "no alignment")))))
          (warnings ())) |}]
 
+    let unclosed_table =
+      test "{table {tr {td}}";
+      [%expect
+        {|
+            ((output
+              (((f.ml (1 0) (1 16))
+                (table (syntax heavy) (grid ((row ((data ()))))) (align "no alignment")))))
+             (warnings
+              ( "File \"f.ml\", line 1, characters 16-16:\
+               \nUnclosed table '{t ...' or '{table ...'\
+               \nSuggestion: try to add '}' at the end of table content."))) |}]
+
     let complex_table =
       test
         {|
@@ -190,6 +202,18 @@ let%expect_test _ =
             (table (syntax light) (grid ()) (align "no alignment")))))
          (warnings ())) |}]
 
+    let unclosed_table =
+      test "{t ";
+      [%expect
+        {|
+        ((output
+          (((f.ml (1 0) (1 3))
+            (table (syntax light) (grid ()) (align "no alignment")))))
+         (warnings
+          ( "File \"f.ml\", line 1, characters 2-3:\
+           \nUnclosed table '{t ...' or '{table ...'\
+           \nSuggestion: try to add '}' at the end of table content."))) |}]
+
     let simple =
       test {|
         {t