1 files changed, 9 insertions, 0 deletions
diff --git a/test/nested.ml b/test/nested.ml
new file mode 100644
index 0000000..4441288
--- /dev/null
+++ b/test/nested.ml
@@ -0,0 +1,9 @@
+let%expect_test _ =
+  let lb = Sedlexing.Utf8.from_string "ab" in
+  let res =
+    match%sedlex lb with
+      | 'a' -> ( match%sedlex lb with 'b' -> "ok" | _ -> "error")
+      | _ -> "error"
+  in
+  print_endline res;
+  [%expect {| ok |}]