1 files changed, 0 insertions, 138 deletions
diff --git a/tests/test-undead-buffers-kill-buffer-or-bury-alive.el b/tests/test-undead-buffers-kill-buffer-or-bury-alive.el
deleted file mode 100644
index 60b776e4..00000000
--- a/tests/test-undead-buffers-kill-buffer-or-bury-alive.el
+++ /dev/null
@@ -1,138 +0,0 @@
-;;; test-undead-buffers-kill-buffer-or-bury-alive.el --- Tests for cj/kill-buffer-or-bury-alive -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Tests for the cj/kill-buffer-or-bury-alive function from undead-buffers.el
-
-;;; Code:
-
-(require 'ert)
-(require 'undead-buffers)
-(require 'testutil-general)
-
-;;; Setup and Teardown
-
-(defun test-kill-buffer-or-bury-alive-setup ()
-  "Setup for kill-buffer-or-bury-alive tests."
-  (cj/create-test-base-dir))
-
-(defun test-kill-buffer-or-bury-alive-teardown ()
-  "Teardown for kill-buffer-or-bury-alive tests."
-  (cj/delete-test-base-dir))
-
-;;; Normal Cases
-
-(ert-deftest test-kill-buffer-or-bury-alive-regular-buffer-should-kill ()
-  "Killing a regular buffer not in undead list should kill it."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((buf (generate-new-buffer "*test-regular*")))
-        (should (buffer-live-p buf))
-        (cj/kill-buffer-or-bury-alive buf)
-        (should-not (buffer-live-p buf)))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-undead-buffer-should-bury ()
-  "Killing an undead buffer should bury it instead."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((orig (copy-sequence cj/undead-buffer-list))
-            (buf (generate-new-buffer "*test-undead*")))
-        (unwind-protect
-            (progn
-              (add-to-list 'cj/undead-buffer-list "*test-undead*")
-              (should (buffer-live-p buf))
-              (cj/kill-buffer-or-bury-alive buf)
-              (should (buffer-live-p buf)))
-          (setq cj/undead-buffer-list orig)
-          (when (buffer-live-p buf) (kill-buffer buf))))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-with-prefix-arg-should-add-to-undead-list ()
-  "Calling with prefix arg should add buffer to undead list."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((orig (copy-sequence cj/undead-buffer-list))
-            (buf (generate-new-buffer "*test-prefix*")))
-        (unwind-protect
-            (progn
-              (with-current-buffer buf
-                (let ((current-prefix-arg '(4)))
-                  (cj/kill-buffer-or-bury-alive buf)))
-              (should (member "*test-prefix*" cj/undead-buffer-list))
-              (should (buffer-live-p buf)))
-          (setq cj/undead-buffer-list orig)
-          (when (buffer-live-p buf) (kill-buffer buf))))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-scratch-buffer-should-bury ()
-  "The *scratch* buffer (in default list) should be buried."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((scratch (get-buffer-create "*scratch*")))
-        (should (buffer-live-p scratch))
-        (cj/kill-buffer-or-bury-alive scratch)
-        (should (buffer-live-p scratch)))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-;;; Boundary Cases
-
-(ert-deftest test-kill-buffer-or-bury-alive-buffer-by-name-string-should-work ()
-  "Passing buffer name as string should work."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((buf (generate-new-buffer "*test-string*")))
-        (should (buffer-live-p buf))
-        (cj/kill-buffer-or-bury-alive "*test-string*")
-        (should-not (buffer-live-p buf)))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-buffer-by-buffer-object-should-work ()
-  "Passing buffer object should work."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((buf (generate-new-buffer "*test-object*")))
-        (should (buffer-live-p buf))
-        (cj/kill-buffer-or-bury-alive buf)
-        (should-not (buffer-live-p buf)))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-modified-undead-buffer-should-bury-without-prompt ()
-  "Modified undead buffer should be buried without save prompt."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((orig (copy-sequence cj/undead-buffer-list))
-            (buf (generate-new-buffer "*test-modified*")))
-        (unwind-protect
-            (progn
-              (add-to-list 'cj/undead-buffer-list "*test-modified*")
-              (with-current-buffer buf
-                (insert "some text")
-                (set-buffer-modified-p t))
-              (cj/kill-buffer-or-bury-alive buf)
-              (should (buffer-live-p buf)))
-          (setq cj/undead-buffer-list orig)
-          (when (buffer-live-p buf)
-            (set-buffer-modified-p nil)
-            (kill-buffer buf))))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-;;; Error Cases
-
-(ert-deftest test-kill-buffer-or-bury-alive-nonexistent-buffer-should-error ()
-  "Passing a non-existent buffer name should error."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (should-error (cj/kill-buffer-or-bury-alive "*nonexistent-buffer-xyz*"))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(ert-deftest test-kill-buffer-or-bury-alive-killed-buffer-object-should-error ()
-  "Passing a killed buffer object should error."
-  (test-kill-buffer-or-bury-alive-setup)
-  (unwind-protect
-      (let ((buf (generate-new-buffer "*test-killed*")))
-        (kill-buffer buf)
-        (should-error (cj/kill-buffer-or-bury-alive buf)))
-    (test-kill-buffer-or-bury-alive-teardown)))
-
-(provide 'test-undead-buffers-kill-buffer-or-bury-alive)
-;;; test-undead-buffers-kill-buffer-or-bury-alive.el ends here