3 ;; Copyright (c) 2010 Eric Schulte
4 ;; Authors: Eric Schulte
6 ;; Released under the GNU General Public License version 3
7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
11 ;; Template test file for Org-mode tests
15 (let ((load-path (cons (expand-file-name
16 ".." (file-name-directory
17 (or load-file-name buffer-file-name
)))
20 (require 'org-test-ob-consts
))
24 (ert-deftest test-ob-lob
/ingest
()
25 "Test the ingestion of an org-mode file."
26 (should (< 0 (org-babel-lob-ingest
27 (expand-file-name "babel.org" org-test-example-dir
)))))
29 (ert-deftest test-ob-lob
/call-with-header-arguments
()
30 "Test the evaluation of a library of babel #+call: line."
31 (org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0"
32 (move-beginning-of-line 1)
34 (message (buffer-substring (point-at-bol) (point-at-eol)))
35 (should (string= "testing" (org-babel-lob-execute
36 (org-babel-lob-get-info))))
38 (should (string= "testing" (caar (org-babel-lob-execute
39 (org-babel-lob-get-info)))))
41 (should (string= "testing" (org-babel-lob-execute
42 (org-babel-lob-get-info))))
44 (should (string= "testing" (caar (org-babel-lob-execute
45 (org-babel-lob-get-info)))))
47 (should (string= "testing" (org-babel-lob-execute
48 (org-babel-lob-get-info))))
50 (should (string= "testing" (caar (org-babel-lob-execute
51 (org-babel-lob-get-info)))))))
53 (provide 'test-ob-lob
)
55 ;;; test-ob-lob.el ends here