[elpa] externals/org a831c18baf 1/2: fixup! test-ob-python: Disable test failing on CI when using older Emacs

[ELPA Syncer]

branch: externals/org
commit a831c18baf6cc7f0865c327fe2b4019bd582a547
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    fixup! test-ob-python: Disable test failing on CI when using older Emacs
---
 testing/lisp/test-ob-python.el | 50 ++++++++++++++++++++++++++----------------
 1 file changed, 31 insertions(+), 19 deletions(-)

diff --git a/testing/lisp/test-ob-python.el b/testing/lisp/test-ob-python.el
index 4ce5b79084..3186c23f65 100644
--- a/testing/lisp/test-ob-python.el
+++ b/testing/lisp/test-ob-python.el
@@ -164,7 +164,7 @@ value
 
 (ert-deftest test-ob-python/assign-underscore ()
   ;; Disable the test on older Emacs as built-in python.el sometimes
-  ;; fail.
+  ;; fail to initialize session.
   (skip-unless (version<= "28" emacs-version))
   (let ((result
          (org-test-with-temp-text "#+begin_src python :session :results value
@@ -202,6 +202,9 @@ return text
            (org-babel-execute-src-block)))))
 
 (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
    (equal "success"
          (org-test-with-temp-text "#+begin_src python :session :results value
@@ -212,23 +215,29 @@ time.sleep(.1)
            (org-babel-execute-src-block)))))
 
 (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)
         (org-confirm-babel-evaluate nil))
     (org-test-with-temp-text
-     "#+begin_src python :session :async yes :results output
+        "#+begin_src python :session :async yes :results output
 import time
 time.sleep(.1)
 print('Yep!')
 #+end_src\n"
-     (should (let ((expected "Yep!"))
-              (and (not (string= expected (org-babel-execute-src-block)))
-                   (string= expected
-                            (progn
-                              (sleep-for 0 200)
-                              (goto-char (org-babel-where-is-src-block-result))
-                              (org-babel-read-result)))))))))
+      (should (let ((expected "Yep!"))
+               (and (not (string= expected (org-babel-execute-src-block)))
+                    (string= expected
+                             (progn
+                               (sleep-for 0 200)
+                               (goto-char 
(org-babel-where-is-src-block-result))
+                               (org-babel-read-result)))))))))
 
 (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
         (org-babel-temporary-directory temporary-file-directory)
         (src-block "#+begin_src python :async :session :results output
@@ -246,13 +255,16 @@ print(\"Yep!\")
 : Yep!
 "))
     (org-test-with-temp-text
-     (concat src-block results-before)
-     (should (progn (org-babel-execute-src-block)
-                    (sleep-for 0 200)
-                    (string= (concat src-block results-after)
-                             (buffer-string)))))))
+        (concat src-block results-before)
+      (should (progn (org-babel-execute-src-block)
+                     (sleep-for 0 200)
+                     (string= (concat src-block results-after)
+                              (buffer-string)))))))
 
 (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
         (org-babel-temporary-directory temporary-file-directory)
         (src-block "#+begin_src python :async :session :results output drawer
@@ -266,11 +278,11 @@ print(list(range(3)))
 :end:
 "))
     (org-test-with-temp-text
-     src-block
-     (should (progn (org-babel-execute-src-block)
-                    (sleep-for 0 200)
-                    (string= (concat src-block result)
-                             (buffer-string)))))))
+        src-block
+      (should (progn (org-babel-execute-src-block)
+                     (sleep-for 0 200)
+                     (string= (concat src-block result)
+                              (buffer-string)))))))
 
 (provide 'test-ob-python)