From 9d55ed149e100b4fb3ef6f5a79d263dcb26ce835 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Fri, 14 Nov 2025 02:31:16 -0600
Subject: checking in modified/removed tests and other misc changes

---
 tests/test-custom-text-enclose-wrap.el | 240 ---------------------------------
 1 file changed, 240 deletions(-)
 delete mode 100644 tests/test-custom-text-enclose-wrap.el

(limited to 'tests/test-custom-text-enclose-wrap.el')

diff --git a/tests/test-custom-text-enclose-wrap.el b/tests/test-custom-text-enclose-wrap.el
deleted file mode 100644
index f68a0668..00000000
--- a/tests/test-custom-text-enclose-wrap.el
+++ /dev/null
@@ -1,240 +0,0 @@
-;;; test-custom-text-enclose-wrap.el --- Tests for cj/--wrap -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Tests for the cj/--wrap function from custom-text-enclose.el
-;;
-;; This function wraps text with different opening and closing strings.
-;; Unlike surround which uses the same string on both sides, wrap allows
-;; asymmetric delimiters.
-;;
-;; Examples:
-;; Input:  "content", opening: "<div>", closing: "</div>"
-;; Output: "<div>content</div>"
-;;
-;; Input:  "text", opening: "(", closing: ")"
-;; Output: "(text)"
-;;
-;; We test the NON-INTERACTIVE implementation (cj/--wrap) to avoid
-;; mocking user input. This follows our testing best practice of
-;; separating business logic from UI interaction.
-
-;;; 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.")
-
-;; Now load the actual production module
-(require 'custom-text-enclose)
-
-;;; Test Helpers
-
-(defun test-wrap (text opening closing)
-  "Test cj/--wrap on TEXT with OPENING and CLOSING.
-Returns the transformed string."
-  (cj/--wrap text opening closing))
-
-;;; Normal Cases - Common Bracket Types
-
-(ert-deftest test-wrap-parentheses ()
-  "Should wrap text with parentheses."
-  (let ((result (test-wrap "text" "(" ")")))
-    (should (string= result "(text)"))))
-
-(ert-deftest test-wrap-square-brackets ()
-  "Should wrap text with square brackets."
-  (let ((result (test-wrap "item" "[" "]")))
-    (should (string= result "[item]"))))
-
-(ert-deftest test-wrap-curly-braces ()
-  "Should wrap text with curly braces."
-  (let ((result (test-wrap "code" "{" "}")))
-    (should (string= result "{code}"))))
-
-(ert-deftest test-wrap-angle-brackets ()
-  "Should wrap text with angle brackets."
-  (let ((result (test-wrap "tag" "<" ">")))
-    (should (string= result "<tag>"))))
-
-;;; Normal Cases - HTML/XML Tags
-
-(ert-deftest test-wrap-html-div ()
-  "Should wrap text with HTML div tags."
-  (let ((result (test-wrap "content" "<div>" "</div>")))
-    (should (string= result "<div>content</div>"))))
-
-(ert-deftest test-wrap-html-span ()
-  "Should wrap text with HTML span tags."
-  (let ((result (test-wrap "text" "<span>" "</span>")))
-    (should (string= result "<span>text</span>"))))
-
-(ert-deftest test-wrap-xml-tag ()
-  "Should wrap text with XML tags."
-  (let ((result (test-wrap "data" "<item>" "</item>")))
-    (should (string= result "<item>data</item>"))))
-
-(ert-deftest test-wrap-html-with-attributes ()
-  "Should wrap text with HTML tag containing attributes."
-  (let ((result (test-wrap "link" "<a href=\"url\">" "</a>")))
-    (should (string= result "<a href=\"url\">link</a>"))))
-
-;;; Normal Cases - Markdown Syntax
-
-(ert-deftest test-wrap-markdown-bold ()
-  "Should wrap text with markdown bold syntax."
-  (let ((result (test-wrap "bold" "**" "**")))
-    (should (string= result "**bold**"))))
-
-(ert-deftest test-wrap-markdown-italic ()
-  "Should wrap text with markdown italic syntax."
-  (let ((result (test-wrap "italic" "*" "*")))
-    (should (string= result "*italic*"))))
-
-(ert-deftest test-wrap-markdown-code ()
-  "Should wrap text with markdown code syntax."
-  (let ((result (test-wrap "code" "`" "`")))
-    (should (string= result "`code`"))))
-
-(ert-deftest test-wrap-markdown-link ()
-  "Should wrap text with markdown link syntax."
-  (let ((result (test-wrap "text" "[" "](url)")))
-    (should (string= result "[text](url)"))))
-
-;;; Normal Cases - Various Content
-
-(ert-deftest test-wrap-single-word ()
-  "Should wrap single word."
-  (let ((result (test-wrap "word" "(" ")")))
-    (should (string= result "(word)"))))
-
-(ert-deftest test-wrap-multiple-words ()
-  "Should wrap multiple words."
-  (let ((result (test-wrap "hello world" "(" ")")))
-    (should (string= result "(hello world)"))))
-
-(ert-deftest test-wrap-sentence ()
-  "Should wrap full sentence."
-  (let ((result (test-wrap "This is a sentence." "(" ")")))
-    (should (string= result "(This is a sentence.)"))))
-
-(ert-deftest test-wrap-with-numbers ()
-  "Should wrap text with numbers."
-  (let ((result (test-wrap "123" "[" "]")))
-    (should (string= result "[123]"))))
-
-(ert-deftest test-wrap-with-special-chars ()
-  "Should wrap text with special characters."
-  (let ((result (test-wrap "hello@world.com" "<" ">")))
-    (should (string= result "<hello@world.com>"))))
-
-;;; Normal Cases - Multiline Text
-
-(ert-deftest test-wrap-multiline ()
-  "Should wrap multiline text."
-  (let ((result (test-wrap "line1\nline2\nline3" "<div>" "</div>")))
-    (should (string= result "<div>line1\nline2\nline3</div>"))))
-
-(ert-deftest test-wrap-text-with-newlines ()
-  "Should wrap text containing newlines."
-  (let ((result (test-wrap "first\nsecond" "(" ")")))
-    (should (string= result "(first\nsecond)"))))
-
-;;; Boundary Cases
-
-(ert-deftest test-wrap-empty-string ()
-  "Should wrap empty string."
-  (let ((result (test-wrap "" "(" ")")))
-    (should (string= result "()"))))
-
-(ert-deftest test-wrap-single-character ()
-  "Should wrap single character."
-  (let ((result (test-wrap "x" "[" "]")))
-    (should (string= result "[x]"))))
-
-(ert-deftest test-wrap-empty-opening ()
-  "Should handle empty opening delimiter."
-  (let ((result (test-wrap "text" "" ")")))
-    (should (string= result "text)"))))
-
-(ert-deftest test-wrap-empty-closing ()
-  "Should handle empty closing delimiter."
-  (let ((result (test-wrap "text" "(" "")))
-    (should (string= result "(text"))))
-
-(ert-deftest test-wrap-both-empty ()
-  "Should handle both delimiters empty."
-  (let ((result (test-wrap "text" "" "")))
-    (should (string= result "text"))))
-
-(ert-deftest test-wrap-very-long-text ()
-  "Should wrap very long text."
-  (let* ((long-text (make-string 1000 ?a))
-         (result (test-wrap long-text "(" ")")))
-    (should (string-prefix-p "(" result))
-    (should (string-suffix-p ")" result))
-    (should (= (length result) 1002))))
-
-(ert-deftest test-wrap-whitespace-only ()
-  "Should wrap whitespace-only text."
-  (let ((result (test-wrap "   " "(" ")")))
-    (should (string= result "(   )"))))
-
-(ert-deftest test-wrap-tabs ()
-  "Should wrap text with tabs."
-  (let ((result (test-wrap "\t\ttext\t\t" "[" "]")))
-    (should (string= result "[\t\ttext\t\t]"))))
-
-;;; Edge Cases - Already Wrapped
-
-(ert-deftest test-wrap-already-wrapped ()
-  "Should wrap text that is already wrapped."
-  (let ((result (test-wrap "(hello)" "[" "]")))
-    (should (string= result "[(hello)]"))))
-
-(ert-deftest test-wrap-nested ()
-  "Should wrap text creating nested delimiters."
-  (let ((result (test-wrap "[inner]" "(" ")")))
-    (should (string= result "([inner])"))))
-
-;;; Edge Cases - Special Delimiters
-
-(ert-deftest test-wrap-asymmetric-length ()
-  "Should wrap with different length delimiters."
-  (let ((result (test-wrap "text" "<<" ">>>")))
-    (should (string= result "<<text>>>"))))
-
-(ert-deftest test-wrap-multi-char-delimiters ()
-  "Should wrap with multi-character delimiters."
-  (let ((result (test-wrap "data" "BEGIN" "END")))
-    (should (string= result "BEGINdataEND"))))
-
-(ert-deftest test-wrap-space-delimiters ()
-  "Should wrap with space delimiters."
-  (let ((result (test-wrap "text" " " " ")))
-    (should (string= result " text "))))
-
-(ert-deftest test-wrap-newline-delimiters ()
-  "Should wrap with newline delimiters."
-  (let ((result (test-wrap "text" "\n" "\n")))
-    (should (string= result "\ntext\n"))))
-
-(ert-deftest test-wrap-quote-delimiters ()
-  "Should wrap with quote delimiters."
-  (let ((result (test-wrap "text" "\"" "\"")))
-    (should (string= result "\"text\""))))
-
-;;; Edge Cases - Same Opening and Closing
-
-(ert-deftest test-wrap-same-delimiters ()
-  "Should work like surround when delimiters are the same."
-  (let ((result (test-wrap "text" "*" "*")))
-    (should (string= result "*text*"))))
-
-(provide 'test-custom-text-enclose-wrap)
-;;; test-custom-text-enclose-wrap.el ends here
-- 
cgit v1.2.3