From d77ca19cf7106a0eecbff1588c13b8b52b98b85f Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 27 Oct 2025 21:05:06 -0500 Subject: refactor: Rename custom-file-buffer to custom-buffer-file Renamed the module 'custom-file-buffer' to 'custom-buffer-file' to ensure consistency across the codebase. This change affects module imports and test files. Additionally, new module 'system-commands.el' has been created to handle system power and session management commands, removing these functionalities from 'wip.el'. --- ...custom-file-buffer-clear-to-bottom-of-buffer.el | 163 --------------------- 1 file changed, 163 deletions(-) delete mode 100644 tests/test-custom-file-buffer-clear-to-bottom-of-buffer.el (limited to 'tests/test-custom-file-buffer-clear-to-bottom-of-buffer.el') diff --git a/tests/test-custom-file-buffer-clear-to-bottom-of-buffer.el b/tests/test-custom-file-buffer-clear-to-bottom-of-buffer.el deleted file mode 100644 index 969f9bb7..00000000 --- a/tests/test-custom-file-buffer-clear-to-bottom-of-buffer.el +++ /dev/null @@ -1,163 +0,0 @@ -;;; test-custom-file-buffer-clear-to-bottom-of-buffer.el --- Tests for cj/clear-to-bottom-of-buffer -*- lexical-binding: t; -*- - -;;; Commentary: -;; Tests for the cj/clear-to-bottom-of-buffer function from custom-file-buffer.el -;; -;; This function deletes all text from point to the end of the current buffer. -;; It does not save the deleted text in the kill ring. - -;;; 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-clear-to-bottom-setup () - "Set up test environment." - (setq kill-ring nil)) - -(defun test-clear-to-bottom-teardown () - "Clean up test environment." - (setq kill-ring nil)) - -;;; Normal Cases - -(ert-deftest test-clear-to-bottom-point-in-middle () - "Should delete from point to end when point in middle." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3") - (goto-char (point-min)) - (forward-line 1) ; Point at start of "Line 2" - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) "Line 1\n"))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-empty-buffer () - "Should do nothing in empty buffer." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) ""))) - (test-clear-to-bottom-teardown))) - -;;; Boundary Cases - -(ert-deftest test-clear-to-bottom-point-at-beginning () - "Should delete entire buffer when point at beginning." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3") - (goto-char (point-min)) - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) ""))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-point-at-end () - "Should delete nothing when point at end." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3") - (goto-char (point-max)) - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) "Line 1\nLine 2\nLine 3"))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-point-second-to-last-char () - "Should delete last character when point at second-to-last." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Hello") - (goto-char (1- (point-max))) ; Before 'o' - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) "Hell"))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-unicode-content () - "Should handle unicode content." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Hello 👋\nمرحبا\nWorld") - (goto-char (point-min)) - (forward-line 1) - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) "Hello 👋\n"))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-narrowed-buffer () - "Should respect narrowing." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3\nLine 4") - (goto-char (point-min)) - (forward-line 1) - (let ((start (point))) - (forward-line 2) - (narrow-to-region start (point)) - (goto-char (point-min)) - (forward-line 1) ; Point at "Line 3" - (cj/clear-to-bottom-of-buffer) - (should (equal (buffer-string) "Line 2\n")))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-multiple-windows () - "Should update all windows showing buffer." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3") - (goto-char (point-min)) - (forward-line 1) - (cj/clear-to-bottom-of-buffer) - ;; Just verify content changed - (should (equal (buffer-string) "Line 1\n"))) - (test-clear-to-bottom-teardown))) - -(ert-deftest test-clear-to-bottom-does-not-affect-kill-ring () - "Should not add deleted text to kill ring." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Line 1\nLine 2\nLine 3") - (goto-char (point-min)) - (setq kill-ring nil) - (cj/clear-to-bottom-of-buffer) - (should (null kill-ring))) - (test-clear-to-bottom-teardown))) - -;;; Error Cases - -(ert-deftest test-clear-to-bottom-read-only-buffer () - "Should signal error in read-only buffer." - (test-clear-to-bottom-setup) - (unwind-protect - (with-temp-buffer - (insert "Read-only content") - (read-only-mode 1) - (goto-char (point-min)) - (should-error (cj/clear-to-bottom-of-buffer))) - (test-clear-to-bottom-teardown))) - -(provide 'test-custom-file-buffer-clear-to-bottom-of-buffer) -;;; test-custom-file-buffer-clear-to-bottom-of-buffer.el ends here -- cgit v1.2.3