testing/lisp/test-ob-lob.el

   1 ;;; test-ob-lob.el
   2
   3 ;; Copyright (c) 2010 Eric Schulte
   4 ;; Authors: Eric Schulte
   5
   6 ;; Released under the GNU General Public License version 3
   7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
   8
   9 ;;;; Comments:
  10
  11 ;; Template test file for Org-mode tests
  12
  13 \f
  14 ;;; Code:
  15 (let ((load-path (cons (expand-file-name
  16                         ".." (file-name-directory
  17                               (or load-file-name buffer-file-name)))
  18                        load-path)))
  19   (require 'org-test)
  20   (require 'org-test-ob-consts))
  21
  22 \f
  23 ;;; Tests
  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)))))
  28
  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)
  33     (forward-line 6)
  34     (message (buffer-substring (point-at-bol) (point-at-eol)))
  35     (should (string= "testing" (org-babel-lob-execute
  36                                 (org-babel-lob-get-info))))
  37     (forward-line 1)
  38     (should (string= "testing" (caar (org-babel-lob-execute
  39                                       (org-babel-lob-get-info)))))
  40     (forward-line 1)
  41     (should (string= "testing" (org-babel-lob-execute
  42                                 (org-babel-lob-get-info))))
  43     (forward-line 1)
  44     (should (string= "testing" (caar (org-babel-lob-execute
  45                                       (org-babel-lob-get-info)))))
  46     (forward-line 1)
  47     (should (string= "testing" (org-babel-lob-execute
  48                                 (org-babel-lob-get-info))))
  49     (forward-line 1)
  50     (should (string= "testing" (caar (org-babel-lob-execute
  51                                       (org-babel-lob-get-info)))))
  52     (forward-line 1) (beginning-of-line) (forward-char 27)
  53     (should (string= "testing" (org-babel-lob-execute
  54                                 (org-babel-lob-get-info))))
  55     (forward-line 1) (beginning-of-line) (forward-char 27)
  56     (should (string= "testing" (caar (org-babel-lob-execute
  57                                       (org-babel-lob-get-info)))))
  58     (forward-line 1) (beginning-of-line)
  59     (should (= 4 (org-babel-lob-execute (org-babel-lob-get-info))))
  60     (forward-line 1)
  61     (should (string= "testing" (org-babel-lob-execute
  62                                 (org-babel-lob-get-info))))))
  63
  64 (provide 'test-ob-lob)
  65
  66 ;;; test-ob-lob.el ends here