mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
added a test ensuring that export works from buffers which aren't visiting files
This commit is contained in:
parent
49b22bb57e
commit
d6143f1e7a
|
@ -18,7 +18,6 @@
|
|||
;;; Tests
|
||||
(ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-headers ()
|
||||
"Testing export without any headlines in the org-mode file."
|
||||
|
||||
(org-test-in-example-file org-test-no-header-example-file-name
|
||||
;; export the file to html
|
||||
(org-export-as-html nil)
|
||||
|
@ -31,6 +30,21 @@
|
|||
(should-not (file-exists-p
|
||||
(concat org-test-no-header-example-file-name "::")))))
|
||||
|
||||
(ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-file ()
|
||||
"Testing export from buffers which are not visiting any file."
|
||||
(when (get-buffer "*Org HTML Export*") (kill-buffer "*Org HTML Export*"))
|
||||
(should-not (get-buffer "*Org HTML Export*"))
|
||||
;; export the file to HTML in a temporary buffer
|
||||
(org-test-in-example-file nil (org-export-as-html-to-buffer nil))
|
||||
;; should create a .html buffer
|
||||
(should (buffer-live-p (get-buffer "*Org HTML Export*")))
|
||||
;; should contain the content of the buffer
|
||||
(save-excursion
|
||||
(set-buffer (get-buffer "*Org HTML Export*"))
|
||||
(should (string-match (regexp-quote test-org-code-block-anchor)
|
||||
(buffer-string))))
|
||||
(when (get-buffer "*Org HTML Export*") (kill-buffer "*Org HTML Export*")))
|
||||
|
||||
(provide 'test-ob-exp)
|
||||
|
||||
;;; test-ob-exp.el ends here
|
||||
|
|
|
@ -15,18 +15,18 @@
|
|||
(require 'org-test)
|
||||
|
||||
(ert-deftest test-org-babel-get-src-block-info-language ()
|
||||
(org-test-at-marker nil "94839181-184f-4ff4-a72f-94214df6f5ba"
|
||||
(org-test-at-marker nil test-org-code-block-anchor
|
||||
(let ((info (org-babel-get-src-block-info)))
|
||||
(should (string= "emacs-lisp" (nth 0 info))))))
|
||||
|
||||
(ert-deftest test-org-babel-get-src-block-info-body ()
|
||||
(org-test-at-marker nil "94839181-184f-4ff4-a72f-94214df6f5ba"
|
||||
(org-test-at-marker nil test-org-code-block-anchor
|
||||
(let ((info (org-babel-get-src-block-info)))
|
||||
(should (string-match (regexp-quote "94839181-184f-4ff4-a72f-94214df6f5ba")
|
||||
(should (string-match (regexp-quote test-org-code-block-anchor)
|
||||
(nth 1 info))))))
|
||||
|
||||
(ert-deftest test-org-babel-get-src-block-info-tangle ()
|
||||
(org-test-at-marker nil "94839181-184f-4ff4-a72f-94214df6f5ba"
|
||||
(org-test-at-marker nil test-org-code-block-anchor
|
||||
(let ((info (org-babel-get-src-block-info)))
|
||||
(should (string= "no" (cdr (assoc :tangle (nth 2 info))))))))
|
||||
|
||||
|
|
|
@ -62,6 +62,9 @@ org-test searches this directory up the directory tree.")
|
|||
(defconst org-test-no-header-example-file-name
|
||||
(expand-file-name "example-file-no-header.org" org-test-dir))
|
||||
|
||||
(defconst test-org-code-block-anchor
|
||||
"94839181-184f-4ff4-a72f-94214df6f5ba")
|
||||
|
||||
|
||||
;;; Functions for writing tests
|
||||
|
||||
|
|
Loading…
Reference in a new issue