[elpa] externals/org 65de88b 6/6: Merge branch 'maint'

[ELPA Syncer]

branch: externals/org
commit 65de88bebfa748c26d68083e5157f3952150b75d
Merge: b72b718 4764a2f
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>

    Merge branch 'maint'
---
 testing/lisp/test-org.el | 168 +++++++++++++++++++++++++----------------------
 1 file changed, 90 insertions(+), 78 deletions(-)

diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 9f0ede1..95ffb0a 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -1007,22 +1007,23 @@
   ;; At the first line of an element, indent like previous element's
   ;; first line, ignoring footnotes definitions and inline tasks, or
   ;; according to parent.
-  (should
-   (= 2
-      (org-test-with-temp-text "A\n\n  B\n\nC<point>"
-       (org-indent-line)
-       (org-get-indentation))))
-  (should
-   (= 1
-      (org-test-with-temp-text " A\n\n[fn:1] B\n\n\nC<point>"
-       (org-indent-line)
-       (org-get-indentation))))
-  (should
-   (= 1
-      (org-test-with-temp-text
-         " #+BEGIN_CENTER\n<point>  Contents\n#+END_CENTER"
-       (org-indent-line)
-       (org-get-indentation))))
+  (let ((org-adapt-indentation t))
+    (should
+     (= 2
+        (org-test-with-temp-text "A\n\n  B\n\nC<point>"
+                                (org-indent-line)
+                                (org-get-indentation))))
+    (should
+     (= 1
+        (org-test-with-temp-text " A\n\n[fn:1] B\n\n\nC<point>"
+                                (org-indent-line)
+                                (org-get-indentation))))
+    (should
+     (= 1
+        (org-test-with-temp-text
+        " #+BEGIN_CENTER\n<point>  Contents\n#+END_CENTER"
+        (org-indent-line)
+        (org-get-indentation)))))
   ;; Within code part of a source block, use language major mode if
   ;; `org-src-tab-acts-natively' is non-nil.  Otherwise, indent
   ;; according to line above.
@@ -1066,11 +1067,12 @@
 (ert-deftest test-org/indent-region ()
   "Test `org-indent-region' specifications."
   ;; Indent paragraph.
-  (should
-   (equal "A\nB\nC"
-         (org-test-with-temp-text " A\nB\n  C"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
+  (let ((org-adapt-indentation t))
+    (should
+     (equal "A\nB\nC"
+           (org-test-with-temp-text " A\nB\n  C"
+                                    (org-indent-region (point-min) (point-max))
+                                    (buffer-string)))))
   ;; Indent greater elements along with their contents.
   (should
    (equal "#+BEGIN_CENTER\nA\nB\n#+END_CENTER"
@@ -1083,11 +1085,12 @@
          (org-test-with-temp-text "#+BEGIN_VERSE\n A\n  B\n#+END_VERSE"
            (org-indent-region (point-min) (point-max))
            (buffer-string))))
-  (should
-   (equal "#+BEGIN_VERSE\n  A\n   B\n#+END_VERSE"
-         (org-test-with-temp-text " #+BEGIN_VERSE\n  A\n   B\n #+END_VERSE"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
+  (let ((org-adapt-indentation t))
+    (should
+     (equal "#+BEGIN_VERSE\n  A\n   B\n#+END_VERSE"
+           (org-test-with-temp-text " #+BEGIN_VERSE\n  A\n   B\n #+END_VERSE"
+                                    (org-indent-region (point-min) (point-max))
+                                    (buffer-string)))))
   ;; Indent example blocks as a single block, unless indentation
   ;; should be preserved.  In this case only indent the block markers.
   (should
@@ -1095,36 +1098,38 @@
          (org-test-with-temp-text "#+BEGIN_EXAMPLE\n A\n  B\n#+END_EXAMPLE"
            (org-indent-region (point-min) (point-max))
            (buffer-string))))
-  (should
-   (equal "#+BEGIN_EXAMPLE\n A\n  B\n#+END_EXAMPLE"
-         (org-test-with-temp-text " #+BEGIN_EXAMPLE\n  A\n   B\n #+END_EXAMPLE"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
-  (should
-   (equal "#+BEGIN_EXAMPLE -i\n  A\n   B\n#+END_EXAMPLE"
-         (org-test-with-temp-text
-             " #+BEGIN_EXAMPLE -i\n  A\n   B\n #+END_EXAMPLE"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
-  (should
-   (equal "#+BEGIN_EXAMPLE\n  A\n   B\n#+END_EXAMPLE"
-         (org-test-with-temp-text
-             " #+BEGIN_EXAMPLE\n  A\n   B\n #+END_EXAMPLE"
-           (let ((org-src-preserve-indentation t))
-             (org-indent-region (point-min) (point-max)))
-           (buffer-string))))
+  (let ((org-adapt-indentation t))
+    (should
+     (equal "#+BEGIN_EXAMPLE\n A\n  B\n#+END_EXAMPLE"
+           (org-test-with-temp-text " #+BEGIN_EXAMPLE\n  A\n   B\n 
#+END_EXAMPLE"
+                                    (org-indent-region (point-min) (point-max))
+                                    (buffer-string))))
+    (should
+     (equal "#+BEGIN_EXAMPLE -i\n  A\n   B\n#+END_EXAMPLE"
+           (org-test-with-temp-text
+            " #+BEGIN_EXAMPLE -i\n  A\n   B\n #+END_EXAMPLE"
+            (org-indent-region (point-min) (point-max))
+            (buffer-string))))
+    (should
+     (equal "#+BEGIN_EXAMPLE\n  A\n   B\n#+END_EXAMPLE"
+           (org-test-with-temp-text
+            " #+BEGIN_EXAMPLE\n  A\n   B\n #+END_EXAMPLE"
+            (let ((org-src-preserve-indentation t))
+              (org-indent-region (point-min) (point-max)))
+            (buffer-string)))))
   ;; Treat export blocks as a whole.
   (should
    (equal "#+BEGIN_EXPORT latex\n A\n  B\n#+END_EXPORT"
          (org-test-with-temp-text "#+BEGIN_EXPORT latex\n A\n  B\n#+END_EXPORT"
            (org-indent-region (point-min) (point-max))
            (buffer-string))))
-  (should
-   (equal "#+BEGIN_EXPORT latex\n A\n  B\n#+END_EXPORT"
-         (org-test-with-temp-text
-             " #+BEGIN_EXPORT latex\n  A\n   B\n #+END_EXPORT"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
+  (let ((org-adapt-indentation t))
+    (should
+     (equal "#+BEGIN_EXPORT latex\n A\n  B\n#+END_EXPORT"
+           (org-test-with-temp-text
+               " #+BEGIN_EXPORT latex\n  A\n   B\n #+END_EXPORT"
+             (org-indent-region (point-min) (point-max))
+             (buffer-string)))))
   ;; Indent according to mode if `org-src-tab-acts-natively' is
   ;; non-nil.  Otherwise, do not indent code at all.
   (should
@@ -1160,16 +1165,17 @@
              (org-indent-region (point) (point-max)))
            (buffer-string))))
   ;; Indent plain lists.
-  (should
-   (equal "- A\n  B\n  - C\n\n    D"
-         (org-test-with-temp-text "- A\n   B\n  - C\n\n     D"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
-  (should
-   (equal "- A\n\n- B"
-         (org-test-with-temp-text " - A\n\n - B"
-           (org-indent-region (point-min) (point-max))
-           (buffer-string))))
+  (let ((org-adapt-indentation t))
+    (should
+     (equal "- A\n  B\n  - C\n\n    D"
+           (org-test-with-temp-text "- A\n   B\n  - C\n\n     D"
+             (org-indent-region (point-min) (point-max))
+             (buffer-string))))
+    (should
+     (equal "- A\n\n- B"
+           (org-test-with-temp-text " - A\n\n - B"
+             (org-indent-region (point-min) (point-max))
+             (buffer-string)))))
   ;; Indent footnote definitions.
   (should
    (equal "[fn:1] Definition\n\nDefinition"
@@ -1404,12 +1410,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 +1431,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 +1477,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."