ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test-org/insert-todo-heading-respect-content: Fix tests 

*
testing/lisp/test-org.el (test-org/insert-todo-heading-respect-content):
Do not assert newline after newly added heading.  See 52bc95676.
This commit is contained in:
Ihor Radchenko 2023-08-19 12:16:36 +03:00
parent 54f8b0bfd0
commit bbdf9781c2
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
testing/lisp/test-org.el
View File

@ -2082,7 +2082,7 @@ text
(buffer-substring-no-properties (line-beginning-position) (point-max))))) (buffer-substring-no-properties (line-beginning-position) (point-max)))))
(should (should
(equal (equal
"* TODO \n" "* TODO "
(let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE")))) (let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE"))))
(org-test-with-temp-text "* TODO\n** WAITING\n" (org-test-with-temp-text "* TODO\n** WAITING\n"
(org-insert-todo-heading-respect-content) (org-insert-todo-heading-respect-content)
@ -2090,7 +2090,7 @@ text
;; Pass prefix argument. ;; Pass prefix argument.
(should (should
(equal (equal
"* FIRST \n" "* FIRST "
(let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE")))) (let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE"))))
(org-test-with-temp-text "* TODO\n** WAITING\n" (org-test-with-temp-text "* TODO\n** WAITING\n"
(org-insert-todo-heading-respect-content '(4)) (org-insert-todo-heading-respect-content '(4))