diff --git a/tests/search_exp_tests.ml b/tests/search_exp_tests.ml index d6c33d5..924927a 100644 --- a/tests/search_exp_tests.ml +++ b/tests/search_exp_tests.ml @@ -436,6 +436,10 @@ module Alco = struct [ ([ at "-"; at "-"; at " "; at "-" ], [ et "-" false true; et "-" true false; et "-" false false ]) ]; + test_exp "\\'abcd" + [ ([ at "'"; at "abcd" ], + [ et "'" false true; et "abcd" true false ]) + ]; test_exp "'abcd" [ ([ atm `Exact; at "abcd" ], [ et ~m:`Exact "abcd" false false ]) @@ -448,10 +452,18 @@ module Alco = struct [ ([ at "'"; at " "; at "abcd" ], [ et "'" false false; et "abcd" false false ]) ]; + test_exp "\\^abcd" + [ ([ at "^"; at "abcd" ], + [ et "^" false true; et "abcd" true false ]) + ]; test_exp "^abcd" [ ([ atm `Prefix; at "abcd" ], [ et ~m:`Prefix "abcd" false false ]) ]; + test_exp "^ abcd" + [ ([ at "^"; at " "; at "abcd" ], + [ et "^" false false; et "abcd" false false ]) + ]; test_exp "^ abcd" [ ([ atm `Prefix; at " "; at "abcd" ], [ et "^" false false; et "abcd" false false ]) @@ -460,14 +472,22 @@ module Alco = struct [ ([ at "abcd"; atm `Suffix ], [ et ~m:`Suffix "abcd" false false ]) ]; + test_exp "abcd $" + [ ([ at "abcd"; at " "; at "$" ], + [ et "abcd" false false; et "$" false false ]) + ]; test_exp "abcd $" [ ([ at "abcd"; at " "; atm `Suffix ], [ et "abcd" false false; et "$" false false ]) ]; test_exp "''abcd" - [ ([ atm `Exact; at "'"; at "abcd" ], + [ ([ atm `Exact; atm `Exact; at "abcd" ], [ et ~m:`Exact "'" false true; et ~m:`Exact "abcd" true false ]) ]; + test_exp "^^abcd" + [ ([ atm `Prefix; at "^"; at "abcd" ], + [ et ~m:`Exact "^" false true; et ~m:`Prefix "abcd" true false ]) + ]; test_exp "abcd$$" [ ([ at "abcd"; at "$"; atm `Suffix ], [ et ~m:`Suffix "abcd" false true; et ~m:`Exact "$" true false ])