From 1129dcdaabdc2b9b45e5056772111fddb9f4a07b Mon Sep 17 00:00:00 2001
From: Ali Caglayan <alizter@gmail.com>
Date: Tue, 21 Apr 2026 12:48:02 +0200
Subject: [PATCH] test(path): trailing slashes when appending

Signed-off-by: Ali Caglayan <alizter@gmail.com>
---
 otherlibs/stdune/test/path_tests.ml | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/otherlibs/stdune/test/path_tests.ml b/otherlibs/stdune/test/path_tests.ml
index 4d671429c7f..8352cfd6713 100644
--- a/otherlibs/stdune/test/path_tests.ml
+++ b/otherlibs/stdune/test/path_tests.ml
@@ -705,3 +705,20 @@ let%expect_test "path relative external plain" =
   relative (Path.of_string "/ext") "foo";
   [%expect {| External "/ext/foo" |}]
 ;;
+
+let%expect_test "external relative trailing slash" =
+  external_relative "/root/" "foo/bar";
+  [%expect {| /root/foo/bar |}]
+;;
+
+(* CR-soon Alizter: should strip "./" and produce "/root/foo" *)
+let%expect_test "external relative trailing slash dot-slash" =
+  external_relative "/root/" "./foo";
+  [%expect {| /root/./foo |}]
+;;
+
+(* CR-soon Alizter: should return "/root" *)
+let%expect_test "external relative dot-slash only" =
+  external_relative "/root" "./";
+  [%expect {| /root/./ |}]
+;;