From be57ba464fae756d5eb44cf4faf192536dec43ec Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 2 Dec 2021 10:16:00 +0200
Subject: Add $root_directory(<path>) function

---
 tests/function/path/testscript | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'tests')

diff --git a/tests/function/path/testscript b/tests/function/path/testscript
index b0c97c9..142c866 100644
--- a/tests/function/path/testscript
+++ b/tests/function/path/testscript
@@ -49,6 +49,28 @@ if! $posix
   $* <'print $path.directory(a/b c/d/)'        >"a/ c/" : dir-names
 }
 
+: root_directory
+:
+{
+  : posix
+  :
+  if $posix
+  {
+    $* <'print $root_directory([path] /a/b)' >'/' : basics
+    $* <'print $root_directory([path] /)' >'/'    : root
+  }
+
+  : windows
+  :
+  if $windows
+  {
+    $* <'print $root_directory([path] "c:\\a\\b")' >'c:\' : basics
+    $* <'print $root_directory([path] "c:")'       >'c:\' : root
+  }
+
+  $* <'print $root_directory([path] a/b)' >'' : relative
+}
+
 : base
 :
 {
-- 
cgit v1.1