diff options
Diffstat (limited to 'tests/test/xdg-basedir.scm')
-rw-r--r-- | tests/test/xdg-basedir.scm | 58 |
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))))) - |