test: dropping entire prefix for Path.drop_prefix (#9363)

We add a test demonstrating that dropping the entire path as the refix in both Path.drop_prefix and Path.External.drop_prefix has a set behaviour. This is in preperation of #8965. Signed-off-by: Ali Caglayan <[email protected]>
ocaml · Dec 3, 2023 · 8502f33 · 8502f33
1 parent 8445ca1
commit 8502f33
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/otherlibs/stdune/test/path_tests.ml b/otherlibs/stdune/test/path_tests.ml
@@ -494,3 +494,15 @@ let%expect_test "drop external prefix as substring" =
   |> print_dyn;
   [%expect {| Some "baz" |}]
 ;;
+
+let%expect_test "drop entire path" =
+  let path = r "foo/bar" in
+  Path.drop_prefix ~prefix:path path |> Dyn.option Path.Local.to_dyn |> print_dyn;
+  [%expect {| Some "." |}]
+;;
+
+let%expect_test "drop entire external path" =
+  let path = Path.External.of_filename_relative_to_initial_cwd "foo/bar" in
+  Path.External.drop_prefix ~prefix:path path |> Dyn.option Path.Local.to_dyn |> print_dyn;
+  [%expect {| Some "." |}]
+;;