Home Explore Help
Sign In
swflint
/
org-mode-mirror
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
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 13 years ago
parent
a1e645b2be
commit
1653759c25
1 changed files with 2 additions and 82 deletions
Split View Show Diff Stats
  1. 2 82
      testing/lisp/test-ob.el

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

@@ -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