mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:37:50 +00:00
test-org.el (test-org/forward-element, test-org/backward-element): Use `regexp-quote'
* test-org.el (test-org/forward-element) (test-org/backward-element): Use `regexp-quote'.
This commit is contained in:
parent
7963c0b69c
commit
4b0ceee39a
|
@ -574,7 +574,7 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/"
|
|||
;; 2. Standard move: expected to ignore blank lines.
|
||||
(org-test-with-temp-text "First paragraph.\n\n\nSecond paragraph."
|
||||
(org-forward-element)
|
||||
(should (looking-at "Second paragraph.")))
|
||||
(should (looking-at (regexp-quote "Second paragraph."))))
|
||||
;; 3. Headline tests.
|
||||
(org-test-with-temp-text "
|
||||
* Head 1
|
||||
|
@ -585,23 +585,23 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/"
|
|||
;; same level.
|
||||
(goto-line 3)
|
||||
(org-forward-element)
|
||||
(should (looking-at "** Head 1.2"))
|
||||
(should (looking-at (regexp-quote "** Head 1.2")))
|
||||
;; 3.2. At an headline beginning: move to parent headline if no
|
||||
;; headline at the same level.
|
||||
(goto-line 3)
|
||||
(org-forward-element)
|
||||
(should (looking-at "** Head 1.2")))
|
||||
(should (looking-at (regexp-quote "** Head 1.2"))))
|
||||
;; 4. Greater element tests.
|
||||
(org-test-with-temp-text
|
||||
"#+BEGIN_CENTER\nInside.\n#+END_CENTER\n\nOutside."
|
||||
;; 4.1. At a greater element: expected to skip contents.
|
||||
(org-forward-element)
|
||||
(should (looking-at "Outside."))
|
||||
(should (looking-at (regexp-quote "Outside.")))
|
||||
;; 4.2. At the end of greater element contents: expected to skip
|
||||
;; to the end of the greater element.
|
||||
(goto-line 2)
|
||||
(org-forward-element)
|
||||
(should (looking-at "Outside.")))
|
||||
(should (looking-at (regexp-quote "Outside."))))
|
||||
;; 5. List tests.
|
||||
(org-test-with-temp-text "
|
||||
- item1
|
||||
|
@ -621,7 +621,7 @@ Outside."
|
|||
;; the list.
|
||||
(goto-line 2)
|
||||
(org-forward-element)
|
||||
(should (looking-at "Outside."))
|
||||
(should (looking-at (regexp-quote "Outside.")))
|
||||
;; 5.2. Special case: at the first line of a sub-list, but not at
|
||||
;; beginning of line, move to next item.
|
||||
(goto-line 2)
|
||||
|
@ -635,11 +635,11 @@ Outside."
|
|||
;; 5.3 At sub-list beginning: expected to move after the sub-list.
|
||||
(goto-line 4)
|
||||
(org-forward-element)
|
||||
(should (looking-at " Inner paragraph."))
|
||||
(should (looking-at (regexp-quote " Inner paragraph.")))
|
||||
;; 5.4. At sub-list end: expected to move outside the sub-list.
|
||||
(goto-line 8)
|
||||
(org-forward-element)
|
||||
(should (looking-at " Inner paragraph."))
|
||||
(should (looking-at (regexp-quote " Inner paragraph.")))
|
||||
;; 5.5. At an item: expected to move to next item, if any.
|
||||
(goto-line 6)
|
||||
(org-forward-element)
|
||||
|
@ -661,7 +661,7 @@ Outside."
|
|||
(goto-line 3)
|
||||
(end-of-line)
|
||||
(org-backward-element)
|
||||
(should (looking-at "Paragraph2.")))
|
||||
(should (looking-at (regexp-quote "Paragraph2."))))
|
||||
;; 4. Headline tests.
|
||||
(org-test-with-temp-text "
|
||||
* Head 1
|
||||
|
@ -672,12 +672,12 @@ Outside."
|
|||
;; same level.
|
||||
(goto-line 5)
|
||||
(org-backward-element)
|
||||
(should (looking-at "** Head 1.1"))
|
||||
(should (looking-at (regexp-quote "** Head 1.1")))
|
||||
;; 4.2. At an headline beginning: move to parent headline if no
|
||||
;; headline at the same level.
|
||||
(goto-line 3)
|
||||
(org-backward-element)
|
||||
(should (looking-at "* Head 1"))
|
||||
(should (looking-at (regexp-quote "* Head 1")))
|
||||
;; 4.3. At the first top-level headline: should error.
|
||||
(goto-line 2)
|
||||
(should-error (org-backward-element)))
|
||||
|
|
Loading…
Reference in a new issue