blob: 636946db452b94c4f2e3298d8f5e45fc35332e06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
;;; test-calendar-sync--sanitize-org-body.el --- Tests for org body sanitization -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for calendar-sync--sanitize-org-body.
;; Ensures description text with org-special syntax (leading asterisks)
;; is escaped to prevent corruption of the org file structure.
;;; Code:
(require 'ert)
(require 'testutil-calendar-sync)
(require 'calendar-sync)
;;; Normal Cases
(ert-deftest test-calendar-sync--sanitize-org-body-normal-single-asterisk ()
"Single leading asterisk replaced with dash."
(should (equal "- item one" (calendar-sync--sanitize-org-body "* item one"))))
(ert-deftest test-calendar-sync--sanitize-org-body-normal-double-asterisk ()
"Double leading asterisks replaced with double dashes."
(should (equal "-- sub-item" (calendar-sync--sanitize-org-body "** sub-item"))))
(ert-deftest test-calendar-sync--sanitize-org-body-normal-triple-asterisk ()
"Triple leading asterisks replaced with triple dashes."
(should (equal "--- deep item" (calendar-sync--sanitize-org-body "*** deep item"))))
(ert-deftest test-calendar-sync--sanitize-org-body-normal-multiline ()
"Multiple lines with asterisks 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 (calendar-sync--sanitize-org-body input)))))
(ert-deftest test-calendar-sync--sanitize-org-body-normal-mixed-lines ()
"Only lines starting with asterisks are changed."
(let ((input "Normal line\n* Bullet line\nAnother normal line"))
(should (equal "Normal line\n- Bullet line\nAnother normal line"
(calendar-sync--sanitize-org-body input)))))
(ert-deftest test-calendar-sync--sanitize-org-body-normal-mixed-levels ()
"Lines with different asterisk counts are each handled."
(let ((input "* Top\n** Middle\n*** Bottom"))
(should (equal "- Top\n-- Middle\n--- Bottom"
(calendar-sync--sanitize-org-body input)))))
;;; Boundary Cases
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-nil-input ()
"Nil input returns nil."
(should (null (calendar-sync--sanitize-org-body nil))))
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-empty-string ()
"Empty string returns empty string."
(should (equal "" (calendar-sync--sanitize-org-body ""))))
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-no-asterisks ()
"Text without leading asterisks is returned unchanged."
(let ((input "Just a normal description\nwith multiple lines"))
(should (equal input (calendar-sync--sanitize-org-body input)))))
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-asterisk-mid-line ()
"Asterisks not at line start are left alone."
(should (equal "Use * for emphasis" (calendar-sync--sanitize-org-body "Use * for emphasis"))))
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-asterisk-no-space ()
"Asterisk at line start without trailing space is not a heading — left alone."
(should (equal "*bold text*" (calendar-sync--sanitize-org-body "*bold text*"))))
(ert-deftest test-calendar-sync--sanitize-org-body-boundary-asterisk-only ()
"Lone asterisk with space at start of line is sanitized."
(should (equal "- " (calendar-sync--sanitize-org-body "* "))))
;;; Heading and Property Sanitizers
(ert-deftest test-calendar-sync--sanitize-org-heading-flattens-newlines ()
"Heading text should stay on one Org heading line."
(should (equal "Planning Agenda"
(calendar-sync--sanitize-org-heading "Planning\nAgenda"))))
(ert-deftest test-calendar-sync--sanitize-org-heading-replaces-leading-stars ()
"Heading text should not start with Org heading stars."
(should (equal "- Planning -- Hidden"
(calendar-sync--sanitize-org-heading "* Planning\n** Hidden"))))
(ert-deftest test-calendar-sync--sanitize-org-property-value-flattens-structure ()
"Property values should not create extra property drawer lines."
(should (equal "Room 1 :END: * Not a heading"
(calendar-sync--sanitize-org-property-value
"Room 1\n:END:\n* Not a heading"))))
(ert-deftest test-calendar-sync--sanitize-org-property-value-trims-and-collapses ()
"Property values should be compact single-line values."
(should (equal "alpha beta gamma"
(calendar-sync--sanitize-org-property-value
" alpha\t beta\n\n gamma "))))
(provide 'test-calendar-sync--sanitize-org-body)
;;; test-calendar-sync--sanitize-org-body.el ends here
|
