forked from mirrors/org-mode
test-ob-octave.el: Remove test clauses causing race condition
* testing/lisp/test-ob-octave.el (ob-octave/graphics-file): (ob-octave/graphics-file-session): (ob-octave/graphics-file-space): Do not check the created image file size. This tests causes race condition between the test and Octave writing image to disk. Also, the correctness of image file is nothing of Org's business as long as ob-ocatave's Elisp implementation is concerned.
This commit is contained in:
parent
e316377767
commit
79e5e42e50
|
@ -79,12 +79,6 @@ sombrero;
|
|||
(org-babel-execute-src-block)
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(should (file-readable-p file))
|
||||
(should (or (> (file-attribute-size (file-attributes file)) 0)
|
||||
;; Avoid race condition on slow machines.
|
||||
;; https://orgmode.org/list/87r0wk29dz.fsf@localhost
|
||||
(progn
|
||||
(sleep-for 1)
|
||||
(> (file-attribute-size (file-attributes file)) 0))))
|
||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
||||
;; clean-up
|
||||
(delete-file file)
|
||||
|
@ -105,12 +99,6 @@ sombrero;
|
|||
(should (get-buffer "*Inferior Octave*"))
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(should (file-readable-p file))
|
||||
(or (> (file-attribute-size (file-attributes file)) 0)
|
||||
;; Avoid race condition on slow machines.
|
||||
;; https://orgmode.org/list/87r0wk29dz.fsf@localhost
|
||||
(progn
|
||||
(sleep-for 1)
|
||||
(> (file-attribute-size (file-attributes file)) 0)))
|
||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
||||
;; clean-up
|
||||
(delete-file file)
|
||||
|
@ -131,12 +119,6 @@ sombrero;
|
|||
(org-babel-execute-src-block)
|
||||
(should (search-forward (format "[[file:%s]]" file) nil nil))
|
||||
(should (file-readable-p file))
|
||||
(or (> (file-attribute-size (file-attributes file)) 0)
|
||||
;; Avoid race condition on slow machines.
|
||||
;; https://orgmode.org/list/87r0wk29dz.fsf@localhost
|
||||
(progn
|
||||
(sleep-for 1)
|
||||
(> (file-attribute-size (file-attributes file)) 0)))
|
||||
(should-not (get-buffer "*Org-Babel Error Output*")))
|
||||
;; clean-up
|
||||
(delete-file file)
|
||||
|
|
Loading…
Reference in New Issue