1 files changed, 0 insertions, 58 deletions
diff --git a/tests/test/xdg-basedir.scm b/tests/test/xdg-basedir.scm
deleted file mode 100644
index 682c1347..00000000
--- a/tests/test/xdg-basedir.scm
+++ /dev/null
@@ -1,58 +0,0 @@
-(define-module (test xdg-basedir)
-  :use-module (srfi srfi-64)
-  :use-module ((xdg basedir) :prefix xdg-)
-  :use-module (srfi srfi-88)
-  :use-module ((hnh util env) :select (let-env))
-  )
-
-
-(let-env ((HOME "/home/user")
-          (XDG_DATA_HOME #f)
-          (XDG_CONFIG_HOME #f)
-          (XDG_STATE_HOME #f)
-          (XDG_DATA_DIRS #f)
-          (XDG_CONFIG_DIRS #f)
-          (XDG_CACHE_HOME #f)
-          (XDG_RUNTIME_DIR #f))
- (test-group "Defaults"
-   (test-equal "XDG_DATA_HOME" "/home/user/.local/share"
-     (xdg-data-home))
-   (test-equal "XDG_CONFIG_HOME" "/home/user/.config"
-     (xdg-config-home))
-   (test-equal "XDG_STATE_HOME" "/home/user/.local/state"
-     (xdg-state-home))
-   (test-equal "XDG_DATA_DIRS" (xdg-data-dirs)
-     '("/usr/local/share" "/usr/share"))
-   (test-equal "XDG_CONFIG_DIRS" '("/etc/xdg")
-     (xdg-config-dirs))
-   (test-equal "XDG_CACHE_HOME" "/home/user/.cache"
-     (xdg-cache-home))
-   (let ((warning
-          (with-error-to-string
-            (lambda ()
-              (test-equal "XDG_RUNTIME_DIR"
-                "/tmp" (xdg-runtime-dir))))))
-     (test-assert "The warning actually contains something"
-       (< 0 (string-length warning)))))
-
- (test-group "Custom values"
-   (let-env ((XDG_DATA_HOME "/a"))
-            (test-equal "XDG_DATA_HOME" "/a" (xdg-data-home)))
-   (let-env ((XDG_CONFIG_HOME "/b"))
-            (test-equal "XDG_CONFIG_HOME" "/b" (xdg-config-home)))
-   (let-env ((XDG_STATE_HOME "/c"))
-            (test-equal "XDG_STATE_HOME" "/c" (xdg-state-home)))
-   (let-env ((XDG_DATA_DIRS "/d:/e"))
-            (test-equal "XDG_DATA_DIRS" '("/d" "/e") (xdg-data-dirs)))
-   (let-env ((XDG_CONFIG_DIRS "/f:/g"))
-            (test-equal "XDG_CONFIG_DIRS" '("/f" "/g") (xdg-config-dirs)))
-   (let-env ((XDG_CACHE_HOME "/h"))
-            (test-equal "XDG_CACHE_HOME" "/h" (xdg-cache-home)))
-   (let ((warning
-          (with-error-to-string
-            (lambda ()
-              (let-env ((XDG_RUNTIME_DIR "/i"))
-                       (test-equal "XDG_RUNTIME_DIR" "/i" (xdg-runtime-dir)))))))
-     (test-assert "No error was emitted"
-       (string-null? warning)))))
-