changing repositories

1 files changed, 84 insertions, 0 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
new file mode 100644
index 00000000..d694e407
--- /dev/null
+++ b/tests/test-custom-functions-join-line-or-region.el.disabled
@@ -0,0 +1,84 @@
+;;; 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.