From 9d55ed149e100b4fb3ef6f5a79d263dcb26ce835 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Fri, 14 Nov 2025 02:31:16 -0600 Subject: checking in modified/removed tests and other misc changes --- tests/test-undead-buffers-undead-buffer-p.el | 106 --------------------------- 1 file changed, 106 deletions(-) delete mode 100644 tests/test-undead-buffers-undead-buffer-p.el (limited to 'tests/test-undead-buffers-undead-buffer-p.el') diff --git a/tests/test-undead-buffers-undead-buffer-p.el b/tests/test-undead-buffers-undead-buffer-p.el deleted file mode 100644 index 107256c9..00000000 --- a/tests/test-undead-buffers-undead-buffer-p.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; test-undead-buffers-undead-buffer-p.el --- Tests for cj/undead-buffer-p -*- lexical-binding: t; -*- - -;;; Commentary: -;; Tests for the cj/undead-buffer-p function from undead-buffers.el - -;;; Code: - -(require 'ert) -(require 'undead-buffers) -(require 'testutil-general) - -;;; Setup and Teardown - -(defun test-undead-buffer-p-setup () - "Setup for undead-buffer-p tests." - (cj/create-test-base-dir)) - -(defun test-undead-buffer-p-teardown () - "Teardown for undead-buffer-p tests." - (cj/delete-test-base-dir)) - -;;; Normal Cases - -(ert-deftest test-undead-buffer-p-modified-file-buffer-should-return-true () - "A modified file-backed buffer not in undead list should return t." - (test-undead-buffer-p-setup) - (unwind-protect - (let* ((file (cj/create-temp-test-file-with-content "test content")) - (buf (find-file-noselect file))) - (unwind-protect - (progn - (with-current-buffer buf - (insert "more content") - (should (cj/undead-buffer-p)))) - (when (buffer-live-p buf) - (set-buffer-modified-p nil) - (kill-buffer buf)))) - (test-undead-buffer-p-teardown))) - -(ert-deftest test-undead-buffer-p-undead-modified-file-buffer-should-return-nil () - "A modified file-backed undead buffer should return nil." - (test-undead-buffer-p-setup) - (unwind-protect - (let* ((orig (copy-sequence cj/undead-buffer-list)) - (file (cj/create-temp-test-file-with-content "test content")) - (buf (find-file-noselect file))) - (unwind-protect - (progn - (add-to-list 'cj/undead-buffer-list (buffer-name buf)) - (with-current-buffer buf - (insert "more content") - (should-not (cj/undead-buffer-p)))) - (setq cj/undead-buffer-list orig) - (when (buffer-live-p buf) - (set-buffer-modified-p nil) - (kill-buffer buf)))) - (test-undead-buffer-p-teardown))) - -(ert-deftest test-undead-buffer-p-scratch-buffer-should-return-nil () - "The *scratch* buffer should return nil (it's undead)." - (test-undead-buffer-p-setup) - (unwind-protect - (with-current-buffer "*scratch*" - (should-not (cj/undead-buffer-p))) - (test-undead-buffer-p-teardown))) - -;;; Boundary Cases - -(ert-deftest test-undead-buffer-p-unmodified-file-buffer-should-return-nil () - "An unmodified file buffer should return nil." - (test-undead-buffer-p-setup) - (unwind-protect - (let* ((file (cj/create-temp-test-file-with-content "test content")) - (buf (find-file-noselect file))) - (unwind-protect - (with-current-buffer buf - (should-not (cj/undead-buffer-p))) - (when (buffer-live-p buf) - (kill-buffer buf)))) - (test-undead-buffer-p-teardown))) - -(ert-deftest test-undead-buffer-p-modified-buffer-without-file-should-return-nil () - "A modified buffer without a backing file should return nil." - (test-undead-buffer-p-setup) - (unwind-protect - (let ((buf (generate-new-buffer "*test-no-file*"))) - (unwind-protect - (with-current-buffer buf - (insert "content") - (set-buffer-modified-p t) - (should-not (cj/undead-buffer-p))) - (when (buffer-live-p buf) - (set-buffer-modified-p nil) - (kill-buffer buf)))) - (test-undead-buffer-p-teardown))) - -(ert-deftest test-undead-buffer-p-temporary-buffer-should-return-nil () - "A temporary buffer should return nil." - (test-undead-buffer-p-setup) - (unwind-protect - (with-temp-buffer - (should-not (cj/undead-buffer-p))) - (test-undead-buffer-p-teardown))) - -(provide 'test-undead-buffers-undead-buffer-p) -;;; test-undead-buffers-undead-buffer-p.el ends here -- cgit v1.2.3