mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:00:49 +00:00
Set org-adapt-indentation explicitly in some tests
* testing/lisp/test-org.el (test-org/with-electric-indent) (test-org/without-electric-indent): Make sure `org-adapt-indentation' is consistent with expected results.
This commit is contained in:
parent
ed5e28939b
commit
d85f4158e2
|
@ -1404,12 +1404,14 @@
|
|||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return)
|
||||
(buffer-string))))
|
||||
(should
|
||||
(equal "* heading\n body"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return)
|
||||
(buffer-string))))
|
||||
;; TODO: test more values of `org-adapt-indentation'.
|
||||
(let ((org-adapt-indentation t))
|
||||
(should
|
||||
(equal "* heading\n body"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return)
|
||||
(buffer-string)))))
|
||||
;; C-j, like `electric-newline-and-maybe-indent', should not indent.
|
||||
(should
|
||||
(equal " Para\ngraph"
|
||||
|
@ -1423,12 +1425,14 @@
|
|||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string))))
|
||||
(should
|
||||
(equal "* heading\nbody"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string)))))
|
||||
;; TODO: test more values of `org-adapt-indentation'.
|
||||
(let ((org-adapt-indentation t))
|
||||
(should
|
||||
(equal "* heading\nbody"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 1)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string))))))
|
||||
|
||||
(ert-deftest test-org/without-electric-indent ()
|
||||
"Test RET and C-j specifications with `electric-indent-mode' off."
|
||||
|
@ -1467,12 +1471,14 @@
|
|||
(electric-indent-local-mode 0)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string))))
|
||||
(should
|
||||
(equal "* heading\n body"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 0)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string)))))
|
||||
;; TODO: test more values of `org-adapt-indentation'.
|
||||
(let ((org-adapt-indentation t))
|
||||
(should
|
||||
(equal "* heading\n body"
|
||||
(org-test-with-temp-text "* heading<point>body"
|
||||
(electric-indent-local-mode 0)
|
||||
(call-interactively 'org-return-and-maybe-indent)
|
||||
(buffer-string))))))
|
||||
|
||||
(ert-deftest test-org/meta-return ()
|
||||
"Test M-RET (`org-meta-return') specifications."
|
||||
|
|
Loading…
Reference in a new issue