ソースを参照

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>
Nicolas Goaziou 8 年 前
コミット
8dfab7be23
1 ファイル変更8 行追加7 行削除
  1. 8 7
      testing/lisp/test-ob.el

+ 8 - 7
testing/lisp/test-ob.el

@@ -775,10 +775,10 @@ x
     (org-test-with-temp-text
 	"
 <point>#+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
 	"
 <point>#+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