tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'maint'

This commit is contained in:
Marco Wahl 2017-03-07 17:54:54 +01:00
parent 5dfa6d6c47 4108f52f36
commit 38b372e143
1 changed files with 37 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
testing/lisp/test-org-list.el
View File

@ -528,8 +528,10 @@
(search-forward "sub-body 1")
(should (org-invisible-p2))
(search-backward "sub-body 2")
(should (org-invisible-p2)))
;; Preserve contents visibility.
(should (org-invisible-p2))))
(ert-deftest test-org-list/move-item-down-contents-visibility ()
"Preserve contents visibility."
(org-test-with-temp-text "
- item 1
#+BEGIN_CENTER
@ -540,12 +542,21 @@
Text2
#+END_CENTER"
(org-hide-block-all)
(search-forward "- item 1")
(org-move-item-down)
(search-forward "Text1")
(should (org-invisible-p2))
(search-backward "Text2")
(should (org-invisible-p2))))
(let ((invisible-property-1
(progn
(search-forward "Text1")
(get-char-property (point) 'invisible)))
(invisible-property-2
(progn
(search-forward "Text2")
(get-char-property (point) 'invisible))))
(goto-char (point-min))
(search-forward "- item 1")
(org-move-item-down)
(search-forward "Text1")
(should (eq invisible-property-1 (get-char-property (point) 'invisible)))
(search-backward "Text2")
(should (eq invisible-property-2 (get-char-property (point) 'invisible))))))
(ert-deftest test-org-list/move-item-up ()
"Test `org-move-item-up' specifications."
@ -613,8 +624,9 @@
(search-forward "sub-body 2")
(should (org-invisible-p2))
(search-forward "sub-body 1")
(should (org-invisible-p2)))
;; Preserve contents visibility.
(should (org-invisible-p2))))
(ert-deftest test-org-list/move-item-up-contents-visibility ()
(org-test-with-temp-text "
- item 1
#+BEGIN_CENTER
@ -625,12 +637,21 @@
Text2
#+END_CENTER"
(org-hide-block-all)
(search-forward "- item 2")
(org-move-item-up)
(search-forward "Text2")
(should (org-invisible-p2))
(search-forward "Text1")
(should (org-invisible-p2))))
(let ((invisible-property-1
(progn
(search-forward "Text1")
(get-char-property (point) 'invisible)))
(invisible-property-2
(progn
(search-forward "Text2")
(get-char-property (point) 'invisible))))
(goto-char (point-min))
(search-forward "- item 2")
(org-move-item-up)
(search-forward "Text2")
(should (eq invisible-property-2 (get-char-property (point) 'invisible)))
(search-forward "Text1")
(should (eq invisible-property-1 (get-char-property (point) 'invisible))))))
(ert-deftest test-org-list/insert-item ()
"Test item insertion."