From: Bastien Guerry <bzg@altern.org>
Date: Mon, 11 Feb 2013 16:09:53 +0000 (+0100)
Subject: test-org.el (test-org/forward-element, test-org/backward-element): Use `regexp-quote'
X-Git-Tag: release_8.0-pre~388
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/4b0ceee39a117a51158a7f44f9e8effe39845268

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'.
---

diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index fed688245..dac5fd264 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -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)))