diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-08-19 18:56:31 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-08-19 18:56:31 +0200 |
commit | 8590c79b3ad38c982361d15ce7ebc169be1a18e7 (patch) | |
tree | aef63b5786ec0b904f889eca8f960f479d4c6bb2 | |
parent | a65ddb0228bc32857385da93d239ccd99a261bfa (diff) | |
download | org-mode-8590c79b3ad38c982361d15ce7ebc169be1a18e7.tar.gz |
Fix some failing tests
* testing/lisp/test-ob-exp.el (test-ob-exp/org-babel-exp-src-blocks/w-no-headers):
(test-ob-exp/org-babel-exp-src-blocks/w-no-file): Fix test.
These tests fail when "htmlize" is not available on the machine.
-rw-r--r-- | testing/lisp/test-ob-exp.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index c7c7a7b..7f375ef 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -40,26 +40,26 @@ Current buffer is a copy of the original buffer." (ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-headers () "Testing export without any headlines in the Org mode file." - (require 'ox-html) - (let ((html-file (concat (file-name-sans-extension org-test-no-heading-file) - ".html"))) - (when (file-exists-p html-file) (delete-file html-file)) + (require 'ox-ascii) + (let ((text-file (concat (file-name-sans-extension org-test-no-heading-file) + ".txt"))) + (when (file-exists-p text-file) (delete-file text-file)) (org-test-in-example-file org-test-no-heading-file ;; Export the file to HTML. - (org-export-to-file 'html html-file)) - ;; should create a .html file - (should (file-exists-p html-file)) + (org-export-to-file 'ascii text-file)) + ;; should create a ".txt" file + (should (file-exists-p text-file)) ;; should not create a file with "::" appended to its name (should-not (file-exists-p (concat org-test-no-heading-file "::"))) - (when (file-exists-p html-file) (delete-file html-file)))) + (when (file-exists-p text-file) (delete-file text-file)))) (ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-file () "Testing export from buffers which are not visiting any file." - (require 'ox-html) - (let ((name (generate-new-buffer-name "*Org HTML Export*"))) + (require 'ox-ascii) + (let ((name (generate-new-buffer-name "*Org ASCII Export*"))) (org-test-in-example-file nil - (org-export-to-buffer 'html name nil nil nil t)) - ;; Should create a HTML buffer. + (org-export-to-buffer 'ascii name nil nil nil t)) + ;; Should create a new buffer. (should (buffer-live-p (get-buffer name))) ;; Should contain the content of the buffer. (with-current-buffer (get-buffer name) |