From 51e0a1f98c234e12d4e845bf41d9461d4f50488a Mon Sep 17 00:00:00 2001 From: Darren Li Date: Wed, 19 Jun 2024 15:43:24 +1000 Subject: [PATCH] Added more tests --- tests/search_exp_tests.ml | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/tests/search_exp_tests.ml b/tests/search_exp_tests.ml index 0d05e84..ae5a90a 100644 --- a/tests/search_exp_tests.ml +++ b/tests/search_exp_tests.ml @@ -562,6 +562,29 @@ module Alco = struct ; et ~m:`Exact "kl" true false ]) ]; + test_exp "'^abcd efgh$$ ij$kl$" + [ ([ atm `Exact + ; at "^" + ; at "abcd" + ; at " " + ; at "efgh" + ; at "$" + ; atm `Suffix + ; at " " + ; at "ij" + ; at "$" + ; at "kl" + ; atm `Suffix + ], + [ et ~m:`Exact "^" false true + ; et ~m:`Exact "abcd" true false + ; et ~m:`Suffix "efgh" false true + ; et ~m:`Exact "$" true false + ; et ~m:`Suffix "ij" false true + ; et ~m:`Exact "$" true true + ; et ~m:`Exact "kl" true false + ]) + ]; () let suite =