mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 08:02:52 +00:00
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:
parent
54f8b0bfd0
commit
bbdf9781c2
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue