diff options
Diffstat (limited to 'tests/test-fs-format-file-info.el')
| -rw-r--r-- | tests/test-fs-format-file-info.el | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/tests/test-fs-format-file-info.el b/tests/test-fs-format-file-info.el deleted file mode 100644 index b5a82f4b..00000000 --- a/tests/test-fs-format-file-info.el +++ /dev/null @@ -1,40 +0,0 @@ -;;; test-tool-library-fs-format-file-info.el --- ERT tests for cj/fs-format-file-info -*- lexical-binding: t; -*- - -;; Author: gptel-tool-writer and cjennings -;; Keywords: tests, filesystem, tools - -;;; Commentary: -;; ERT tests for the cj/fs-format-file-info 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-format-file-info-normal-typical () - "Normal: format typical file info plist." - (let ((info (list :permissions "-rw-r--r--" - :executable nil - :size 1024 - :last-modified (current-time) - :path "~/test-file.txt"))) - (should (string-match-p "test-file.txt" (cj/fs-format-file-info info "~"))))) - -(ert-deftest test-cj/fs-format-file-info-error-missing-keys () - "Error: format with missing keys handled." - (let ((info (list))) - (should (cj/fs-format-file-info info "~")))) - -(ert-deftest test-cj/fs-format-file-info-boundary-zero-size () - "Boundary: format with zero size." - (let ((info (list :permissions "-rw-r--r--" - :executable nil - :size 0 - :last-modified (current-time) - :path "~/empty-file.txt"))) - (should (string-match-p "empty-file.txt" (cj/fs-format-file-info info "~"))))) - -(provide 'test-tool-library-fs-format-file-info) -;;; test-tool-library-fs-format-file-info.el ends here |