From 8dfab7be2347220ec2e8090e32fa782c6f360b8b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 5 Mar 2017 18:05:02 +0100 Subject: [PATCH] Fix failing tests * testing/lisp/test-ob.el (test-ob/org-babel-insert-result): Fix failing tests. Reported-by: "Charles C. Berry" --- testing/lisp/test-ob.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 13b3810a0..fe74c0cac 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -775,10 +775,10 @@ x (org-test-with-temp-text " #+BEGIN_SRC emacs-lisp -\"* Not an headline\n\n\n\n\n\n\n\n\n\n\" +\"* Not an headline\" #+END_SRC " - (org-babel-execute-maybe) + (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe)) (buffer-string)))) ;; Escape special syntax in example blocks. (should @@ -787,13 +787,13 @@ x (org-test-with-temp-text " #+BEGIN_SRC emacs-lisp -\"#+END_SRC\n\n\n\n\n\n\n\n\n\n\" +\"#+END_SRC\" #+END_SRC " - (org-babel-execute-maybe) + (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe)) (buffer-string)))) ;; No escaping is done with other blocks or raw type. - (should + (should-not (string-match-p ",\\* Not an headline" (org-test-with-temp-text @@ -802,9 +802,10 @@ x \"* Not an headline\" #+END_SRC " - (org-babel-execute-maybe) + (let ((org-babel-min-lines-for-block-output 10)) + (org-babel-execute-maybe)) (buffer-string)))) - (should + (should-not (string-match-p ",\\* Not an headline" (org-test-with-temp-text