From 8590c79b3ad38c982361d15ce7ebc169be1a18e7 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 19 Aug 2017 18:56:31 +0200 Subject: [PATCH] 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. --- testing/lisp/test-ob-exp.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index c7c7a7bbb..7f375efe7 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)