diff options
Diffstat (limited to 'tests/test-fs-validate-path.el')
| -rw-r--r-- | tests/test-fs-validate-path.el | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/tests/test-fs-validate-path.el b/tests/test-fs-validate-path.el deleted file mode 100644 index 011789e0..00000000 --- a/tests/test-fs-validate-path.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; test-tool-library-cj/fs-validate-path.el --- ERT tests for cj/fs-validate-path -*- lexical-binding: t; -*- - -;; Author: gptel-tool-writer and cjennings -;; Keywords: tests, filesystem, tools - -;;; Commentary: -;; ERT tests for the cj/fs-validate-path function from tool-filesystem-library.el. -;; Place this file in ~/.emacs.d/tests/ and load it to run tests. - -;;; Code: - -(require 'ert) -(require 'f) -(require 'tool-filesystem-library) - -(ert-deftest test-cj/fs-validate-path-normal-home () - "Normal: validate home directory path." - (should (string-prefix-p (expand-file-name "~") - (cj/fs-validate-path "~")))) - -(ert-deftest test-cj/fs-validate-path-normal-temp () - "Normal: validate temp directory path." - (let ((temp (expand-file-name temporary-file-directory))) - (should (string-prefix-p temp (cj/fs-validate-path temp))))) - -(ert-deftest test-cj/fs-validate-path-error-outside () - "Error: path outside allowed directories." - (should-error (cj/fs-validate-path "/etc/passwd"))) - -(ert-deftest test-cj/fs-validate-path-error-nonexistent () - "Error: non-existent path." - (should-error (cj/fs-validate-path (format "/tmp/nonexistent-%d" (random 100000))))) - -(ert-deftest test-cj/fs-validate-path-error-unreadable () - "Error: unreadable path." - (let ((file (make-temp-file "test-unreadable"))) - (unwind-protect - (progn - (set-file-modes file 0) - (should-error (cj/fs-validate-path file))) - (set-file-modes file #o644) - (delete-file file)))) - -(provide 'test-tool-library-cj/fs-validate-path) -;;; test-tool-library-cj/fs-validate-path.el ends here |