mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 16:02:52 +00:00
Code Releases Activity

test-ob-octave.el: Remove test clauses causing race condition

Browse source 
* 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:
Ihor Radchenko 2023-01-01 15:53:20 +03:00
parent e316377767
commit 79e5e42e50
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 0 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
testing/lisp/test-ob-octave.el
View file

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