test-ob.el 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. ;;; test-ob.el --- tests for ob.el
  2. ;; Copyright (c) 2010 Eric Schulte
  3. ;; Authors: Eric Schulte
  4. ;; Released under the GNU General Public License version 3
  5. ;; see: http://www.gnu.org/licenses/gpl-3.0.html
  6. ;;;; Comments:
  7. ;; Template test file for Org-mode tests
  8. ;;; Code:
  9. (let ((load-path (cons (expand-file-name
  10. ".." (file-name-directory
  11. (or load-file-name buffer-file-name)))
  12. load-path)))
  13. (require 'org-test)
  14. (require 'org-test-ob-consts))
  15. (ert-deftest test-org-babel-get-src-block-info-language ()
  16. (org-test-at-marker nil org-test-file-ob-anchor
  17. (let ((info (org-babel-get-src-block-info)))
  18. (should (string= "emacs-lisp" (nth 0 info))))))
  19. (ert-deftest test-org-babel-get-src-block-info-body ()
  20. (org-test-at-marker nil org-test-file-ob-anchor
  21. (let ((info (org-babel-get-src-block-info)))
  22. (should (string-match (regexp-quote org-test-file-ob-anchor)
  23. (nth 1 info))))))
  24. (ert-deftest test-org-babel-get-src-block-info-tangle ()
  25. (org-test-at-marker nil org-test-file-ob-anchor
  26. (let ((info (org-babel-get-src-block-info)))
  27. (should (string= "no" (cdr (assoc :tangle (nth 2 info))))))))
  28. (provide 'test-ob)
  29. ;;; test-ob ends here