From 3c6bd65e402655aacb9dfd8e2edeb95563f3ccda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 11 Feb 2023 03:27:57 +0100
Subject: Add test for path-append without components.

---
 tests/test/util.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tests/test')

diff --git a/tests/test/util.scm b/tests/test/util.scm
index ab50898a..719afbed 100644
--- a/tests/test/util.scm
+++ b/tests/test/util.scm
@@ -254,6 +254,8 @@
 
 (test-equal "root" "/" (path-append ""))
 
+(test-equal "No components" "" (path-append))
+
 (test-equal
   '("usr" "lib" "test")
   (path-split "usr/lib/test"))
-- 
cgit v1.2.3