From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 2 Oct 2023 19:26:40 +0200
Subject: Rewrite test running system.

---
 tests/test/hnh-util-path.scm | 124 -------------------------------------------
 1 file changed, 124 deletions(-)
 delete mode 100644 tests/test/hnh-util-path.scm

(limited to 'tests/test/hnh-util-path.scm')

diff --git a/tests/test/hnh-util-path.scm b/tests/test/hnh-util-path.scm
deleted file mode 100644
index de4bf8e3..00000000
--- a/tests/test/hnh-util-path.scm
+++ /dev/null
@@ -1,124 +0,0 @@
-(define-module (test hnh-util-path)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-64 test-error)
-  :use-module (srfi srfi-88)
-  :use-module ((hnh util env) :select (with-working-directory))
-  :use-module (hnh util path))
-
-(test-equal
-  "no slashes"
-  "home/user"
-  (path-append "home" "user"))
-
-(test-equal
-  "no slashes, absolute"
-  "/home/user"
-  (path-append "" "home" "user"))
-
-(test-equal
-  "slashes in one component, absolute"
-  "/home/user"
-  (path-append "" "/home/" "user"))
-
-(test-equal
-  "slashes in one component, absolute due to first"
-  "/home/user"
-  (path-append "/home/" "user"))
-
-(test-equal
-  "Slashes in both"
-  "home/user"
-  (path-append "home/" "/user"))
-
-(test-equal "root" "/" (path-append ""))
-
-(test-equal
-  '("usr" "lib" "test")
-  (path-split "usr/lib/test"))
-
-(test-equal
-  '("usr" "lib" "test")
-  (path-split "usr/lib/test/"))
-
-(test-equal
-  '("" "usr" "lib" "test")
-  (path-split "/usr/lib/test"))
-
-(test-equal
-  '("" "usr" "lib" "test")
-  (path-split "//usr////lib/test"))
-
-(test-assert (file-hidden? ".just-filename"))
-(test-assert (file-hidden? "/path/to/.hidden"))
-(test-assert (not (file-hidden? "/visible/.in/hidden")))
-(test-assert (not (file-hidden? "")))
-
-;; TODO test realpath with .. and similar
-
-(test-equal "Realpath for path fragment"
-  "/home/hugo"
-  (with-working-directory
-   "/home"
-   (lambda () (realpath "hugo"))))
-
-(test-equal "Realpath for already absolute path"
-  "/home/hugo"
-  (with-working-directory
-   "/tmp"
-   (lambda () (realpath "/home/hugo"))))
-
-(test-equal "Realpath for already absolute path"
-  "/home/hugo"
-  (with-working-directory
-   "/tmp"
-   (lambda () (realpath "/home/hugo"))))
-
-
-(test-group "Relative to"
-
-  (test-group "With relative child"
-    (test-equal "/some/path" (relative-to "/some" "path")))
-
-  ;; Relative parent just adds (getcwd) to start of parent,
-  ;; but this is "hard" to test.
-  ;; (test-group "With relative parent")
-
-  (test-group "With absolute child"
-    (test-error 'misc-error (relative-to "" "/some/path"))
-    (test-equal "some/path" (relative-to "/" "/some/path"))
-    (test-group "Without trailing slashes"
-      (test-equal "path" (relative-to "/some" "/some/path"))
-      (test-equal "../path" (relative-to "/some" "/other/path")))
-    (test-group "With trailing slashes"
-      (test-equal "path" (relative-to "/some" "/some/path/"))
-      (test-equal "../path" (relative-to "/some" "/other/path/"))))
-
-  (test-equal "/a/b" (relative-to "/a/b/c" "/a/b"))
-
-  )
-
-
-(test-equal "Extension of simple file"
-  "txt" (filename-extension "file.txt"))
-
-(test-equal "Extension of file with directory"
-  "txt" (filename-extension "/direcotry/file.txt"))
-
-(test-equal "Extension of file with multiple"
-  "gz" (filename-extension "filename.tar.gz"))
-
-(test-equal "Filename extension when none is present"
-  "" (filename-extension "filename"))
-
-(test-equal "Filename extension when none is present, but directory has"
-  "" (filename-extension "config.d/filename"))
-
-(test-equal "Filename extension of directory"
-  "d" (filename-extension "config.d/"))
-
-
-(test-equal "Extension of hidden file"
-  "sh" (filename-extension ".bashrc.sh"))
-
-(test-equal "Extension of hidden file without extension"
-  "bashrc" (filename-extension ".bashrc"))
-- 
cgit v1.2.3