branch: externals/org
commit b183315e16995b95b6be3035ab45d541ba97fcb6
Author: Kévin Le Gouguec <kevin.legoug...@gmail.com>
Commit: Bastien <b...@gnu.org>
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.
---
testing/lisp/test-org.el | 42 ++++++++++++++++++++++++------------------
1 file changed, 24 insertions(+), 18 deletions(-)
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 9f0ede1..5ac9173 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -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."
