unikernel/duniverse/ocaml-re/lib_test/expect/test_replace.ml

@@ -0,0 +1,33 @@
+open Import
+
+let%expect_test "test_replace" =
+  let re = Re.Posix.compile_pat "[a-zA-Z]+" in
+  let f sub = String.capitalize_ascii (Re.Group.get sub 0) in
+  print_endline (Re.replace re ~f " hello world; I love chips!");
+  [%expect {| Hello World; I Love Chips! |}];
+  print_endline (Re.replace ~all:false re ~f " allo maman, bobo");
+  [%expect {| Allo maman, bobo |}];
+  print_endline (Re.replace re_empty ~f:(fun _ -> "a") "");
+  [%expect {| a |}];
+  print_endline (Re.replace (Re.compile (Re.rep (Re.char 'a'))) ~f:(fun _ -> "*") "cat");
+  [%expect {| *c*t* |}]
+;;
+
+let%expect_test "test_replace_string" =
+  let re = Re.Posix.compile_pat "_[a-zA-Z]+_" in
+  print_endline (Re.replace_string re ~by:"goodbye" "_hello_ world");
+  [%expect {| goodbye world |}];
+  print_endline (Re.replace_string ~all:false re ~by:"brown" "The quick _XXX_ fox");
+  [%expect {| The quick brown fox |}]
+;;
+
+let%expect_test "test_bug_55" =
+  let re = Re.(compile bol) in
+  let res = Re.replace_string re ~by:"z" "abc" in
+  print_endline res;
+  [%expect {| zabc |}];
+  let re = Re.(compile eow) in
+  let res = Re.replace_string re ~by:"X" "one two three" in
+  print_endline res;
+  [%expect {| oneX twoX threeX |}]
+;;