anil.recoil.org
The unpac monorepo manager self-hosting as a monorepo using unpac
test(str): include more cases (#564)
authored by
Rudi Grinberg
and committed by
GitHub
e2308be8
a35c1dcb
+10
-1
lib_test/str/test_str.ml
+10
-1
lib_test/str/test_str.ml
···
220
220
eq_match "[0-9]+" "a";
221
221
eq_match "[9-0]+" "2";
222
222
eq_match "[5-5]" "5";
223
-
eq_match "[5-4]" "1");
223
+
eq_match "[5-4]" "1";
224
+
eq_match' "[]]" "]";
225
+
eq_match' "[a-]" "-";
226
+
eq_match' "[-a]" "-";
227
+
eq_match' "]" "]";
228
+
eq_match' "[^b-f]" "z";
229
+
eq_match' "[^b-f]" "a"
230
+
(* These errors aren't correct *)
231
+
(* eq_match' "[]" "x" *)
232
+
(* eq_match' "[" "[" *));
224
233
expect_pass "compl" (fun () ->
225
234
eq_match "[^0-9a-z]+" "A:Z+";
226
235
eq_match "[^0-9a-z]+" "0";