checking in modified/removed tests and other misc changes

1 files changed, 0 insertions, 84 deletions

diff --git a/tests/test-custom-functions-join-line-or-region.el.disabled b/tests/test-custom-functions-join-line-or-region.el.disabled
deleted file mode 100644
index d694e407..00000000
--- a/tests/test-custom-functions-join-line-or-region.el.disabled
+++ /dev/null
@@ -1,84 +0,0 @@
-;;; test-custom-functions-join-line-or-region.el --- Test cj/join-line-or-region -*- lexical-binding: t; -*-
-;; Author: Craig Jennings <c@cjennings.net>
-;;
-;;; Commentary:
-;; Tests for the cj/join-line-or-region function in custom-functions.el
-
-;;; Code:
-
-(add-to-list 'load-path (concat user-emacs-directory "modules"))
-(require 'ert)
-(require 'custom-functions)
-
-
-(ert-deftest test-cj/join-line-or-region-normal-case ()
-  (let* ((given  "Line1\nLine2\nLine3\n")
-		 (expected "Line1 Line2 Line3\n"))  ; Note: join-line adds newline.
-	(with-temp-buffer
-	  (insert given)
-
-	  ;; Properly set and activate the region
-	  (push-mark (point-min) t t)  ; Set mark, no message, activate
-	  (goto-char (point-max))      ; This creates active region from min to max
-
-	  ;; Call the function being tested
-	  (cj/join-line-or-region)
-
-	  ;; Perform assertions to check the expected result
-	  (should (equal (buffer-substring-no-properties (point-min) (point-max))
-					 expected)))))
-
-(ert-deftest test-cj/join-line-or-region-multiple-spaces ()
-  (let* ((given  "Line1\n\n\n\n\nLine2\nLine3\n")
-		 (expected "Line1 Line2 Line3\n"))  ; Note: join-line adds newline.
-	(with-temp-buffer
-	  (insert given)
-
-	  ;; Properly set and activate the region
-	  (push-mark (point-min) t t)
-	  (goto-char (point-max))
-
-	  ;; Call the function being tested
-	  (cj/join-line-or-region)
-
-	  ;; Perform assertions to check the expected result
-	  (should (equal (buffer-substring-no-properties (point-min) (point-max))
-					 expected)))))
-
-
-(ert-deftest test-cj/join-line-or-region-single-line ()
-  (let* ((given  "Line1\n")
-		 (expected "Line1\n"))  ; Note: join-line adds newline.
-	(with-temp-buffer
-	  (insert given)
-
-	  ;; push the mark mid-way on the line
-	  (goto-char (/ (point-max) 2))
-
-	  ;; Call the function being tested
-	  (cj/join-line-or-region)
-
-	  ;; Perform assertions to check the expected result
-	  (should (equal (buffer-substring-no-properties (point-min) (point-max))
-					 expected)))))
-
-(ert-deftest test-cj/join-line-or-region-nothing ()
-  (let* ((given  "")
-		 (expected "\n"))  ; Note: join-line adds newline.
-	(with-temp-buffer
-	  (insert given)
-
-	  ;; Properly set and activate the region
-	  (push-mark (point-min) t t)
-	  (goto-char (point-max))
-
-	  ;; Call the function being tested
-	  (cj/join-line-or-region)
-
-	  ;; Perform assertions to check the expected result
-	  (should (equal (buffer-substring-no-properties (point-min) (point-max))
-					 expected)))))
-
-
-(provide 'test-custom-functions.el-join-line-or-region)
-;;; test-custom-functions-join-line-or-region.el ends here.