Inicio Explorar Axuda
Iniciar sesión
swflint
/
org-mode-mirror
1
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Árbore: 8d7d4428cc
Ramas Etiquetas
org-mode-mir...
/
testing
/
lisp
/
test-ob-lob.el

test-ob-lob.el 2.1 KB
Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 
  1. ;;; test-ob-lob.el
    2. 

  2. 

  3. ;; Copyright (c) 2010 Eric Schulte
    4. 

  4. ;; Authors: Eric Schulte
    5. 

  5. 

  6. ;; Released under the GNU General Public License version 3
    7. 

  7. ;; see: http://www.gnu.org/licenses/gpl-3.0.html
    8. 

  8. 

  9. ;;;; Comments:
    10. 

  10. 

  11. ;; Template test file for Org-mode tests
    12. 

  12. 

  13. 
    14. 

  14. ;;; Code:
    15. 

  15. (let ((load-path (cons (expand-file-name
    16. 

  16. 			".." (file-name-directory
    17. 

  17. 			      (or load-file-name buffer-file-name)))
    18. 

  18. 		       load-path)))
    19. 

  19.   (require 'org-test)
    20. 

  20.   (require 'org-test-ob-consts))
    21. 

  21. 

  22. 
    23. 

  23. ;;; Tests
    24. 

  24. (ert-deftest test-ob-lob/ingest ()
    25. 

  25.   "Test the ingestion of an org-mode file."
    26. 

  26.   (should (< 0 (org-babel-lob-ingest
    27. 

  27. 		(expand-file-name "babel.org" org-test-example-dir)))))
    28. 

  28. 

  29. (ert-deftest test-ob-lob/call-with-header-arguments ()
    30. 

  30.   "Test the evaluation of a library of babel #+call: line."
    31. 

  31.   (org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0"
    32. 

  32.     (move-beginning-of-line 1)
    33. 

  33.     (forward-line 6)
    34. 

  34.     (message (buffer-substring (point-at-bol) (point-at-eol)))
    35. 

  35.     (should (string= "testing" (org-babel-lob-execute
    36. 

  36. 				(org-babel-lob-get-info))))
    37. 

  37.     (forward-line 1)
    38. 

  38.     (should (string= "testing" (caar (org-babel-lob-execute
    39. 

  39. 				      (org-babel-lob-get-info)))))
    40. 

  40.     (forward-line 1)
    41. 

  41.     (should (string= "testing" (org-babel-lob-execute
    42. 

  42.     				(org-babel-lob-get-info))))
    43. 

  43.     (forward-line 1)
    44. 

  44.     (should (string= "testing" (caar (org-babel-lob-execute
    45. 

  45.     				      (org-babel-lob-get-info)))))
    46. 

  46.     (forward-line 1)
    47. 

  47.     (should (string= "testing" (org-babel-lob-execute
    48. 

  48. 				(org-babel-lob-get-info))))
    49. 

  49.     (forward-line 1)
    50. 

  50.     (should (string= "testing" (caar (org-babel-lob-execute
    51. 

  51.     				      (org-babel-lob-get-info)))))
    52. 

  52.     (forward-line 1) (beginning-of-line) (forward-char 27)
    53. 

  53.     (should (string= "testing" (org-babel-lob-execute
    54. 

  54. 				(org-babel-lob-get-info))))
    55. 

  55.     (forward-line 1) (beginning-of-line) (forward-char 27)
    56. 

  56.     (should (string= "testing" (caar (org-babel-lob-execute
    57. 

  57. 				      (org-babel-lob-get-info)))))
    58. 

  58.     (forward-line 1) (beginning-of-line)
    59. 

  59.     (should (= 4 (org-babel-lob-execute (org-babel-lob-get-info))))
    60. 

  60.     (forward-line 1)
    61. 

  61.     (should (string= "testing" (org-babel-lob-execute
    62. 

  62. 				(org-babel-lob-get-info))))))
    63. 

  63. 

  64. (provide 'test-ob-lob)
    65. 

  65. 

  66. ;;; test-ob-lob.el ends here
    67.