aboutsummaryrefslogtreecommitdiff
path: root/tests/test-cj-org-text-lib-sanitize.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-05-10 15:33:33 -0500
committerCraig Jennings <c@cjennings.net>2026-05-10 15:33:33 -0500
commitf59ff9606fd96c6b1b9037ea5befb39b5e5a57b9 (patch)
treecb77f08013e535f74d11d23fe9be82470fb4b275 /tests/test-cj-org-text-lib-sanitize.el
parent8c12629f8c4c8726b7b74ad3912abd9cd1cade9c (diff)
downloaddotemacs-f59ff9606fd96c6b1b9037ea5befb39b5e5a57b9.tar.gz
dotemacs-f59ff9606fd96c6b1b9037ea5befb39b5e5a57b9.zip
refactor(tests): rename test files to match cj-*-lib.el modules
The earlier cj-cache and cj-org-text rename commits renamed the modules but missed renaming the test files. Bring them in line: - tests/test-cj-cache.el -> tests/test-cj-cache-lib.el - tests/test-cj-org-text-sanitize.el -> tests/test-cj-org-text-lib-sanitize.el Update file headers, provide forms, and the in-commentary references. No behavior change.
Diffstat (limited to 'tests/test-cj-org-text-lib-sanitize.el')
-rw-r--r--tests/test-cj-org-text-lib-sanitize.el111
1 files changed, 111 insertions, 0 deletions
diff --git a/tests/test-cj-org-text-lib-sanitize.el b/tests/test-cj-org-text-lib-sanitize.el
new file mode 100644
index 00000000..a4f8dca3
--- /dev/null
+++ b/tests/test-cj-org-text-lib-sanitize.el
@@ -0,0 +1,111 @@
+;;; test-cj-org-text-lib-sanitize.el --- Tests for the Org-safe text sanitizers -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for `cj/org-sanitize-body-text', `cj/org-sanitize-property-value',
+;; and `cj/org-sanitize-heading' in cj-org-text-lib.el. Pure string helpers
+;; for safely composing Org content from external sources (calendar
+;; bodies, web-clipped HTML, mail subjects, AI transcripts). Originally
+;; lived in calendar-sync.el under `calendar-sync--sanitize-*' names.
+
+;;; Code:
+
+(require 'ert)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'cj-org-text-lib)
+
+;;; cj/org-sanitize-body-text -- Normal cases
+
+(ert-deftest test-cj-org-sanitize-body-single-asterisk ()
+ "Normal: single leading asterisk replaced with dash."
+ (should (equal "- item one" (cj/org-sanitize-body-text "* item one"))))
+
+(ert-deftest test-cj-org-sanitize-body-double-asterisk ()
+ "Normal: double leading asterisks replaced with double dashes."
+ (should (equal "-- sub-item" (cj/org-sanitize-body-text "** sub-item"))))
+
+(ert-deftest test-cj-org-sanitize-body-triple-asterisk ()
+ "Normal: triple leading asterisks replaced with triple dashes."
+ (should (equal "--- deep item" (cj/org-sanitize-body-text "*** deep item"))))
+
+(ert-deftest test-cj-org-sanitize-body-multiline ()
+ "Normal: multiple lines with leading stars all get sanitized."
+ (let ((input "Format:\n* What did you do yesterday?\n* What are you doing today?\n* Is anything in your way?")
+ (expected "Format:\n- What did you do yesterday?\n- What are you doing today?\n- Is anything in your way?"))
+ (should (equal expected (cj/org-sanitize-body-text input)))))
+
+(ert-deftest test-cj-org-sanitize-body-mixed-lines ()
+ "Normal: only lines starting with asterisks change."
+ (let ((input "Normal line\n* Bullet line\nAnother normal line"))
+ (should (equal "Normal line\n- Bullet line\nAnother normal line"
+ (cj/org-sanitize-body-text input)))))
+
+(ert-deftest test-cj-org-sanitize-body-mixed-levels ()
+ "Normal: lines with different asterisk counts each handled independently."
+ (let ((input "* Top\n** Middle\n*** Bottom"))
+ (should (equal "- Top\n-- Middle\n--- Bottom"
+ (cj/org-sanitize-body-text input)))))
+
+;;; cj/org-sanitize-body-text -- Boundary cases
+
+(ert-deftest test-cj-org-sanitize-body-nil-input ()
+ "Boundary: nil input returns nil."
+ (should (null (cj/org-sanitize-body-text nil))))
+
+(ert-deftest test-cj-org-sanitize-body-empty-string ()
+ "Boundary: empty string returns empty string."
+ (should (equal "" (cj/org-sanitize-body-text ""))))
+
+(ert-deftest test-cj-org-sanitize-body-no-asterisks ()
+ "Boundary: text without leading asterisks is returned unchanged."
+ (let ((input "Just a normal description\nwith multiple lines"))
+ (should (equal input (cj/org-sanitize-body-text input)))))
+
+(ert-deftest test-cj-org-sanitize-body-asterisk-mid-line ()
+ "Boundary: asterisks not at line start are left alone."
+ (should (equal "Use * for emphasis" (cj/org-sanitize-body-text "Use * for emphasis"))))
+
+(ert-deftest test-cj-org-sanitize-body-asterisk-no-space ()
+ "Boundary: asterisk at line start without trailing space is not a heading -- left alone."
+ (should (equal "*bold text*" (cj/org-sanitize-body-text "*bold text*"))))
+
+(ert-deftest test-cj-org-sanitize-body-asterisk-only ()
+ "Boundary: lone asterisk with space at start of line is sanitized."
+ (should (equal "- " (cj/org-sanitize-body-text "* "))))
+
+;;; cj/org-sanitize-heading
+
+(ert-deftest test-cj-org-sanitize-heading-flattens-newlines ()
+ "Normal: heading text stays on one Org heading line."
+ (should (equal "Planning Agenda"
+ (cj/org-sanitize-heading "Planning\nAgenda"))))
+
+(ert-deftest test-cj-org-sanitize-heading-replaces-leading-stars ()
+ "Normal: heading text doesn't start with Org heading stars."
+ (should (equal "- Planning -- Hidden"
+ (cj/org-sanitize-heading "* Planning\n** Hidden"))))
+
+(ert-deftest test-cj-org-sanitize-heading-nil-input ()
+ "Boundary: nil input returns nil."
+ (should (null (cj/org-sanitize-heading nil))))
+
+;;; cj/org-sanitize-property-value
+
+(ert-deftest test-cj-org-sanitize-property-value-flattens-structure ()
+ "Normal: property values do not create extra property drawer lines."
+ (should (equal "Room 1 :END: * Not a heading"
+ (cj/org-sanitize-property-value
+ "Room 1\n:END:\n* Not a heading"))))
+
+(ert-deftest test-cj-org-sanitize-property-value-trims-and-collapses ()
+ "Normal: property values are compact single-line values."
+ (should (equal "alpha beta gamma"
+ (cj/org-sanitize-property-value
+ " alpha\t beta\n\n gamma "))))
+
+(ert-deftest test-cj-org-sanitize-property-value-nil-input ()
+ "Boundary: nil input returns nil."
+ (should (null (cj/org-sanitize-property-value nil))))
+
+(provide 'test-cj-org-text-lib-sanitize)
+;;; test-cj-org-text-lib-sanitize.el ends here