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

Fix failing tests 

* testing/lisp/test-ob.el (test-ob/org-babel-insert-result): Fix
  failing tests.

Reported-by: "Charles C. Berry" <ccberry@ucsd.edu>
<http://permalink.gmane.org/gmane.emacs.orgmode/112475>
This commit is contained in:
Nicolas Goaziou 2017-03-05 18:05:02 +01:00
parent 57fbe524e4
commit 8dfab7be23
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
testing/lisp/test-ob.el
View File

@ -775,10 +775,10 @@ x
(org-test-with-temp-text (org-test-with-temp-text
" "
<point>#+BEGIN_SRC emacs-lisp <point>#+BEGIN_SRC emacs-lisp
\"* Not an headline\n\n\n\n\n\n\n\n\n\n\" \"* Not an headline\"
#+END_SRC #+END_SRC
" "
(org-babel-execute-maybe) (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe))
(buffer-string)))) (buffer-string))))
;; Escape special syntax in example blocks. ;; Escape special syntax in example blocks.
(should (should
@ -787,13 +787,13 @@ x
(org-test-with-temp-text (org-test-with-temp-text
" "
<point>#+BEGIN_SRC emacs-lisp <point>#+BEGIN_SRC emacs-lisp
\"#+END_SRC\n\n\n\n\n\n\n\n\n\n\" \"#+END_SRC\"
#+END_SRC #+END_SRC
" "
(org-babel-execute-maybe) (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe))
(buffer-string)))) (buffer-string))))
;; No escaping is done with other blocks or raw type. ;; No escaping is done with other blocks or raw type.
(should (should-not
(string-match-p (string-match-p
",\\* Not an headline" ",\\* Not an headline"
(org-test-with-temp-text (org-test-with-temp-text
@ -802,9 +802,10 @@ x
\"* Not an headline\" \"* Not an headline\"
#+END_SRC #+END_SRC
" "
(org-babel-execute-maybe) (let ((org-babel-min-lines-for-block-output 10))
(org-babel-execute-maybe))
(buffer-string)))) (buffer-string))))
(should (should-not
(string-match-p (string-match-p
",\\* Not an headline" ",\\* Not an headline"
(org-test-with-temp-text (org-test-with-temp-text