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

Fix failing test 

* testing/lisp/test-ob-lob.el (test-ob-lob/call-with-header-arguments):
  Fix failing test.
This commit is contained in:
Nicolas Goaziou 2017-08-19 19:12:08 +02:00
parent 8590c79b3a
commit bc8360c702
1 changed files with 59 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
testing/lisp/test-ob-lob.el
View File

@ -41,41 +41,65 @@
"Test the evaluation of a library of babel #+call: line." "Test the evaluation of a library of babel #+call: line."
(letf (((symbol-function 'org-babel-insert-result) (letf (((symbol-function 'org-babel-insert-result)
(symbol-function 'ignore))) (symbol-function 'ignore)))
(org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0" (let ((org-babel-library-of-babel
(move-beginning-of-line 1) (org-test-with-temp-text-in-file
(forward-line 6) "
(message (buffer-substring (point-at-bol) (point-at-eol))) #+name: echo
(should (string= "testing" (org-babel-execute-src-block #+begin_src emacs-lisp :var input=\"echo'd\"
nil (org-babel-lob-get-info)))) input
(forward-line 1) #+end_src
(should (string= "testing" (caar (org-babel-execute-src-block
nil (org-babel-lob-get-info))))) #+name: lob-minus
(forward-line 1) #+begin_src emacs-lisp :var a=0 :var b=0
(should (string= "testing" (org-babel-execute-src-block (- a b)
nil (org-babel-lob-get-info)))) #+end_src"
(forward-line 1) (org-babel-lob-ingest)
(should (string= "testing" (caar (org-babel-execute-src-block org-babel-library-of-babel)))
nil (org-babel-lob-get-info))))) (org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0"
(forward-line 1) (move-beginning-of-line 1)
(should (string= "testing" (org-babel-execute-src-block (forward-line 6)
nil (org-babel-lob-get-info)))) (message (buffer-substring (point-at-bol) (point-at-eol)))
(forward-line 1) (should
(should (string= "testing" (caar (org-babel-execute-src-block (string= "testing" (org-babel-execute-src-block
nil (org-babel-lob-get-info))))) nil (org-babel-lob-get-info))))
(forward-line 1) (beginning-of-line) (forward-char 27) (forward-line 1)
(should (string= "testing" (org-babel-execute-src-block (should
nil (org-babel-lob-get-info)))) (string= "testing" (caar (org-babel-execute-src-block
(forward-line 1) (beginning-of-line) (forward-char 27) nil (org-babel-lob-get-info)))))
(should (string= "testing" (caar (org-babel-execute-src-block (forward-line 1)
nil (org-babel-lob-get-info))))) (should
(forward-line 1) (beginning-of-line) (string= "testing" (org-babel-execute-src-block
(should (= 4 (org-babel-execute-src-block nil (org-babel-lob-get-info)))) nil (org-babel-lob-get-info))))
(forward-line 1) (forward-line 1)
(should (string= "testing" (org-babel-execute-src-block (should
nil (org-babel-lob-get-info)))) (string= "testing" (caar (org-babel-execute-src-block
(forward-line 1) nil (org-babel-lob-get-info)))))
(should (string= "123" (org-babel-execute-src-block (forward-line 1)
nil (org-babel-lob-get-info))))))) (should
(string= "testing" (org-babel-execute-src-block
nil (org-babel-lob-get-info))))
(forward-line 1)
(should
(string= "testing" (caar (org-babel-execute-src-block
nil (org-babel-lob-get-info)))))
(forward-line 1) (beginning-of-line) (forward-char 27)
(should
(string= "testing" (org-babel-execute-src-block
nil (org-babel-lob-get-info))))
(forward-line 1) (beginning-of-line) (forward-char 27)
(should
(string= "testing" (caar (org-babel-execute-src-block
nil (org-babel-lob-get-info)))))
(forward-line 1) (beginning-of-line)
(should
(= 4 (org-babel-execute-src-block nil (org-babel-lob-get-info))))
(forward-line 1)
(should
(string= "testing" (org-babel-execute-src-block
nil (org-babel-lob-get-info))))
(forward-line 1)
(should (string= "123" (org-babel-execute-src-block
nil (org-babel-lob-get-info))))))))
(ert-deftest test-ob-lob/export-lob-lines () (ert-deftest test-ob-lob/export-lob-lines ()
"Test the export of a variety of library babel call lines." "Test the export of a variety of library babel call lines."