Browse Source

fix test: BEGIN_ORG / END_ORG has been replaced by BEGIN_SRC org / END_SRC

* testing/lisp/test-ob.el (test-ob/org-babel-remove-result--results-org):
  BEGIN_ORG / END_ORG has been replaced by BEGIN_SRC org / END_SRC.
  Change test comparison template accordingly.

* testing/lisp/test-ob.el (test-ob/org-babel-remove-result--results-*):
  These tests had duplicate definitions, removed the first one of each.
Achim Gratz 7 years ago
parent
commit
1653759c25
1 changed files with 2 additions and 82 deletions
  1. 2 82
      testing/lisp/test-ob.el

+ 2 - 82
testing/lisp/test-ob.el

@@ -814,86 +814,6 @@ trying to find the :END: marker."
     (should (search-forward "[[file:foo][bar]]" nil t))
     (should (search-forward "[[file:foo][foo]]" nil t))))
 
-(ert-deftest test-ob/org-babel-remove-result--results-wrap ()
-  "Test `org-babel-remove-result' with :results wrap."
-  (test-ob-verify-result-and-removed-result
-   ":RESULTS:
-hello there
-:END:"
-
- "* org-babel-remove-result
-
-#+begin_src emacs-lisp :results wrap
-\"hello there\"
-#+end_src
-
-* next heading"))
-
-(ert-deftest test-ob/org-babel-remove-result--results-org ()
-  "Test `org-babel-remove-result' with :results org."
-  (test-ob-verify-result-and-removed-result
-   "#+BEGIN_ORG
-* heading
-** subheading
-content
-#+END_ORG"
-
-"* org-babel-remove-result
-#+begin_src emacs-lisp :results org
-\"* heading
-** subheading
-content\"
-#+end_src
-
-* next heading"))
-
-(ert-deftest test-ob/org-babel-remove-result--results-html ()
-  "Test `org-babel-remove-result' with :results html."
-  (test-ob-verify-result-and-removed-result
-   "#+BEGIN_HTML
-<head><body></body></head>
-#+END_HTML"
-
-"* org-babel-remove-result
-#+begin_src emacs-lisp :results html
-\"<head><body></body></head>\"
-#+end_src
-
-* next heading"))
-
-(ert-deftest test-ob/org-babel-remove-result--results-latex ()
-  "Test `org-babel-remove-result' with :results latex."
-  (test-ob-verify-result-and-removed-result
-   "#+BEGIN_LaTeX
-Line 1
-Line 2
-Line 3
-#+END_LaTeX"
-
-"* org-babel-remove-result
-#+begin_src emacs-lisp :results latex
-\"Line 1
-Line 2
-Line 3\"
-#+end_src
-
-* next heading"))
-
-(ert-deftest test-ob/org-babel-remove-result--results-code ()
-  "Test `org-babel-remove-result' with :results code."
-
-  (test-ob-verify-result-and-removed-result
-   "#+BEGIN_SRC emacs-lisp
-\"I am working!\"
-#+END_SRC"
-
-"* org-babel-remove-result
-#+begin_src emacs-lisp :results code
-(message \"I am working!\")
-#+end_src
-
-* next heading"))
-
 (ert-deftest test-ob/org-babel-remove-result--results-pp ()
   "Test `org-babel-remove-result' with :results pp."
   (test-ob-verify-result-and-removed-result
@@ -1009,11 +929,11 @@ hello there
 (ert-deftest test-ob/org-babel-remove-result--results-org ()
   "Test `org-babel-remove-result' with :results org."
   (test-ob-verify-result-and-removed-result
-   "#+BEGIN_ORG
+   "#+BEGIN_SRC org
 * heading
 ** subheading
 content
-#+END_ORG"
+#+END_SRC"
 
 "* org-babel-remove-result
 #+begin_src emacs-lisp :results org