forked from mirrors/org-mode
fixup! test-ob-python: Disable test failing on CI when using older Emacs
This commit is contained in:
parent
5c247fb27b
commit
a831c18baf
|
@ -164,7 +164,7 @@ value
|
||||||
|
|
||||||
(ert-deftest test-ob-python/assign-underscore ()
|
(ert-deftest test-ob-python/assign-underscore ()
|
||||||
;; Disable the test on older Emacs as built-in python.el sometimes
|
;; Disable the test on older Emacs as built-in python.el sometimes
|
||||||
;; fail.
|
;; fail to initialize session.
|
||||||
(skip-unless (version<= "28" emacs-version))
|
(skip-unless (version<= "28" emacs-version))
|
||||||
(let ((result
|
(let ((result
|
||||||
(org-test-with-temp-text "#+begin_src python :session :results value
|
(org-test-with-temp-text "#+begin_src python :session :results value
|
||||||
|
@ -202,6 +202,9 @@ return text
|
||||||
(org-babel-execute-src-block)))))
|
(org-babel-execute-src-block)))))
|
||||||
|
|
||||||
(ert-deftest test-ob-python/session-value-sleep ()
|
(ert-deftest test-ob-python/session-value-sleep ()
|
||||||
|
;; Disable the test on older Emacs as built-in python.el sometimes
|
||||||
|
;; fail to initialize session.
|
||||||
|
(skip-unless (version<= "28" emacs-version))
|
||||||
(should
|
(should
|
||||||
(equal "success"
|
(equal "success"
|
||||||
(org-test-with-temp-text "#+begin_src python :session :results value
|
(org-test-with-temp-text "#+begin_src python :session :results value
|
||||||
|
@ -212,23 +215,29 @@ time.sleep(.1)
|
||||||
(org-babel-execute-src-block)))))
|
(org-babel-execute-src-block)))))
|
||||||
|
|
||||||
(ert-deftest test-ob-python/async-simple-session-output ()
|
(ert-deftest test-ob-python/async-simple-session-output ()
|
||||||
|
;; Disable the test on older Emacs as built-in python.el sometimes
|
||||||
|
;; fail to initialize session.
|
||||||
|
(skip-unless (version<= "28" emacs-version))
|
||||||
(let ((org-babel-temporary-directory temporary-file-directory)
|
(let ((org-babel-temporary-directory temporary-file-directory)
|
||||||
(org-confirm-babel-evaluate nil))
|
(org-confirm-babel-evaluate nil))
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
"#+begin_src python :session :async yes :results output
|
"#+begin_src python :session :async yes :results output
|
||||||
import time
|
import time
|
||||||
time.sleep(.1)
|
time.sleep(.1)
|
||||||
print('Yep!')
|
print('Yep!')
|
||||||
#+end_src\n"
|
#+end_src\n"
|
||||||
(should (let ((expected "Yep!"))
|
(should (let ((expected "Yep!"))
|
||||||
(and (not (string= expected (org-babel-execute-src-block)))
|
(and (not (string= expected (org-babel-execute-src-block)))
|
||||||
(string= expected
|
(string= expected
|
||||||
(progn
|
(progn
|
||||||
(sleep-for 0 200)
|
(sleep-for 0 200)
|
||||||
(goto-char (org-babel-where-is-src-block-result))
|
(goto-char (org-babel-where-is-src-block-result))
|
||||||
(org-babel-read-result)))))))))
|
(org-babel-read-result)))))))))
|
||||||
|
|
||||||
(ert-deftest test-ob-python/async-named-output ()
|
(ert-deftest test-ob-python/async-named-output ()
|
||||||
|
;; Disable the test on older Emacs as built-in python.el sometimes
|
||||||
|
;; fail to initialize session.
|
||||||
|
(skip-unless (version<= "28" emacs-version))
|
||||||
(let (org-confirm-babel-evaluate
|
(let (org-confirm-babel-evaluate
|
||||||
(org-babel-temporary-directory temporary-file-directory)
|
(org-babel-temporary-directory temporary-file-directory)
|
||||||
(src-block "#+begin_src python :async :session :results output
|
(src-block "#+begin_src python :async :session :results output
|
||||||
|
@ -246,13 +255,16 @@ print(\"Yep!\")
|
||||||
: Yep!
|
: Yep!
|
||||||
"))
|
"))
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
(concat src-block results-before)
|
(concat src-block results-before)
|
||||||
(should (progn (org-babel-execute-src-block)
|
(should (progn (org-babel-execute-src-block)
|
||||||
(sleep-for 0 200)
|
(sleep-for 0 200)
|
||||||
(string= (concat src-block results-after)
|
(string= (concat src-block results-after)
|
||||||
(buffer-string)))))))
|
(buffer-string)))))))
|
||||||
|
|
||||||
(ert-deftest test-ob-python/async-output-drawer ()
|
(ert-deftest test-ob-python/async-output-drawer ()
|
||||||
|
;; Disable the test on older Emacs as built-in python.el sometimes
|
||||||
|
;; fail to initialize session.
|
||||||
|
(skip-unless (version<= "28" emacs-version))
|
||||||
(let (org-confirm-babel-evaluate
|
(let (org-confirm-babel-evaluate
|
||||||
(org-babel-temporary-directory temporary-file-directory)
|
(org-babel-temporary-directory temporary-file-directory)
|
||||||
(src-block "#+begin_src python :async :session :results output drawer
|
(src-block "#+begin_src python :async :session :results output drawer
|
||||||
|
@ -266,11 +278,11 @@ print(list(range(3)))
|
||||||
:end:
|
:end:
|
||||||
"))
|
"))
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
src-block
|
src-block
|
||||||
(should (progn (org-babel-execute-src-block)
|
(should (progn (org-babel-execute-src-block)
|
||||||
(sleep-for 0 200)
|
(sleep-for 0 200)
|
||||||
(string= (concat src-block result)
|
(string= (concat src-block result)
|
||||||
(buffer-string)))))))
|
(buffer-string)))))))
|
||||||
|
|
||||||
(provide 'test-ob-python)
|
(provide 'test-ob-python)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue