summaryrefslogtreecommitdiff
path: root/tests/test-custom-file-buffer-copy-link-to-buffer-file.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-custom-file-buffer-copy-link-to-buffer-file.el')
-rw-r--r--tests/test-custom-file-buffer-copy-link-to-buffer-file.el209
1 files changed, 0 insertions, 209 deletions
diff --git a/tests/test-custom-file-buffer-copy-link-to-buffer-file.el b/tests/test-custom-file-buffer-copy-link-to-buffer-file.el
deleted file mode 100644
index 94d1e01e..00000000
--- a/tests/test-custom-file-buffer-copy-link-to-buffer-file.el
+++ /dev/null
@@ -1,209 +0,0 @@
-;;; test-custom-file-buffer-copy-link-to-buffer-file.el --- Tests for cj/copy-link-to-buffer-file -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Tests for the cj/copy-link-to-buffer-file function from custom-file-buffer.el
-;;
-;; This function copies the full file:// path of the current buffer's file to
-;; the kill ring. For non-file buffers, it does nothing (no error).
-
-;;; Code:
-
-(require 'ert)
-(require 'testutil-general)
-
-;; Add modules directory to load path
-(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
-
-;; Stub dependencies before loading the module
-(defvar cj/custom-keymap (make-sparse-keymap)
- "Stub keymap for testing.")
-
-;; Stub ps-print package
-(provide 'ps-print)
-
-;; Now load the actual production module
-(require 'custom-file-buffer)
-
-;;; Setup and Teardown
-
-(defun test-copy-link-setup ()
- "Set up test environment."
- (setq kill-ring nil))
-
-(defun test-copy-link-teardown ()
- "Clean up test environment."
- ;; Kill all buffers visiting files in the test directory
- (dolist (buf (buffer-list))
- (when (buffer-file-name buf)
- (when (string-prefix-p cj/test-base-dir (buffer-file-name buf))
- (with-current-buffer buf
- (set-buffer-modified-p nil)
- (kill-buffer buf)))))
- (cj/delete-test-base-dir)
- (setq kill-ring nil))
-
-;;; Normal Cases
-
-(ert-deftest test-copy-link-simple-file ()
- "Should copy file:// link for simple file buffer."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "test.txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-non-file-buffer ()
- "Should do nothing for non-file buffer without error."
- (test-copy-link-setup)
- (unwind-protect
- (with-temp-buffer
- (setq kill-ring nil)
- (cj/copy-link-to-buffer-file)
- (should (null kill-ring)))
- (test-copy-link-teardown)))
-
-;;; Boundary Cases
-
-(ert-deftest test-copy-link-unicode-filename ()
- "Should handle unicode in filename."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "café.txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-spaces-in-filename ()
- "Should handle spaces in filename."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "my file.txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-special-chars-filename ()
- "Should handle special characters in filename."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "[test]-(1).txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-very-long-path ()
- "Should handle very long path."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (long-name (make-string 200 ?x))
- (test-file (expand-file-name (concat long-name ".txt") test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-hidden-file ()
- "Should handle hidden file."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name ".hidden" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-no-extension ()
- "Should handle file with no extension."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "README" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-symlink-file ()
- "Should use buffer's filename for symlink."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (target-file (expand-file-name "target.txt" test-dir))
- (link-file (expand-file-name "link.txt" test-dir)))
- (with-temp-file target-file
- (insert "content"))
- (make-symbolic-link target-file link-file)
- (with-current-buffer (find-file link-file)
- (cj/copy-link-to-buffer-file)
- ;; Should use the link name (what buffer-file-name returns)
- (should (equal (car kill-ring) (concat "file://" (buffer-file-name))))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-kill-ring-has-content ()
- "Should add to kill ring when it already has content."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "test.txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (kill-new "existing content")
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))
- (should (equal (cadr kill-ring) "existing content"))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-empty-kill-ring ()
- "Should populate empty kill ring."
- (test-copy-link-setup)
- (unwind-protect
- (let* ((test-dir (cj/create-test-subdirectory "test"))
- (test-file (expand-file-name "test.txt" test-dir)))
- (with-temp-file test-file
- (insert "content"))
- (setq kill-ring nil)
- (with-current-buffer (find-file test-file)
- (cj/copy-link-to-buffer-file)
- (should (equal (car kill-ring) (concat "file://" test-file)))
- (should (= (length kill-ring) 1))))
- (test-copy-link-teardown)))
-
-(ert-deftest test-copy-link-scratch-buffer ()
- "Should do nothing for *scratch* buffer."
- (test-copy-link-setup)
- (unwind-protect
- (progn
- (setq kill-ring nil)
- (with-current-buffer "*scratch*"
- (cj/copy-link-to-buffer-file)
- (should (null kill-ring))))
- (test-copy-link-teardown)))
-
-(provide 'test-custom-file-buffer-copy-link-to-buffer-file)
-;;; test-custom-file-buffer-copy-link-to-buffer-file.el ends here
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-29 16:44:29 +0000