mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-ob-fortran: Enable and fix commented tests 

* testing/lisp/test-ob-fortran.el (ob-fortran/wrong-list):
(ob-fortran/compiler-flags): Uncomment the tests, making sure that
error buffer is displayed.
This commit is contained in:
Ihor Radchenko 2023-04-08 14:56:08 +02:00
parent 28d41e69d7
commit 2ad8a45f00
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
testing/lisp/test-ob-fortran.el
View File

@ -87,19 +87,23 @@
(should-error (org-babel-execute-src-block))
:type 'error))
;; (ert-deftest ob-fortran/wrong-list ()
;; "Test wrong input list"
;; (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
;; (org-babel-next-src-block 2)
;; (should-error (org-babel-execute-src-block))
;; :type 'error))
(ert-deftest ob-fortran/wrong-list ()
"Test wrong input list"
(org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
(org-babel-next-src-block 2)
(org-babel-execute-src-block)
(when (should (buffer-live-p (get-buffer org-babel-error-buffer-name)))
(kill-buffer org-babel-error-buffer-name))
:type 'error))
;; (ert-deftest ob-fortran/compiler-flags ()
;; "Test compiler's flags"
;; (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
;; (org-babel-next-src-block 3)
;; (should-error (org-babel-execute-src-block))
;; :type 'error))
(ert-deftest ob-fortran/compiler-flags ()
"Test compiler's flags"
(org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
(org-babel-next-src-block 3)
(org-babel-execute-src-block)
(when (should (buffer-live-p (get-buffer org-babel-error-buffer-name)))
(kill-buffer org-babel-error-buffer-name))
:type 'error))
(ert-deftest ob-fortran/command-arguments ()
"Test real array from a table"