diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-20 18:54:57 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-20 18:54:57 +0100 |
commit | 2824e1fd1de67d7797726c13c32d68457100efb6 (patch) | |
tree | a5170ce5e4a8ca3a629ab91e23a27c7b2f47f345 | |
parent | 44558f0bbd803e874e2aff77155394ba73bb39f2 (diff) | |
download | org-mode-2824e1fd1de67d7797726c13c32d68457100efb6.tar.gz |
Update the tests wrt previous commit.
* test-org-exp.el (test-org-exp/stripping-commas): Update the
list of args for org-export-as-* functions.
* test-ob-lob.el (test-ob-lob/export-lob-lines): Ditto.
* test-ob-exp.el (ob-exp/noweb-on-export)
(ob-exp/noweb-on-export-with-exports-results)
(ob-exp/exports-both, ob-exp/mixed-blocks-with-exports-both)
(ob-exp/export-with-name)
(ob-exp/export-with-header-argument)
(ob-exp/evaluate-all-executables-in-order)
(ob-exp/noweb-strip-export-ensure-strips)
(ob-exp/export-from-a-temp-buffer): Ditto.
-rw-r--r-- | testing/lisp/test-ob-exp.el | 22 | ||||
-rw-r--r-- | testing/lisp/test-ob-lob.el | 2 | ||||
-rw-r--r-- | testing/lisp/test-org-exp.el | 2 |
3 files changed, 13 insertions, 13 deletions
diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 13bf53d..976c890 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -75,7 +75,7 @@ (org-test-at-id "eb1f6498-5bd9-45e0-9c56-50717053e7b7" (org-narrow-to-subtree) (let ((exported-html - (org-export-as-html nil nil nil 'string 'body-only)) + (org-export-as-html nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file @@ -109,7 +109,7 @@ (org-test-at-id "8701beb4-13d9-468c-997a-8e63e8b66f8d" (org-narrow-to-subtree) (let ((exported-html - (org-export-as-html nil nil nil 'string 'body-only)) + (org-export-as-html nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file @@ -139,7 +139,7 @@ elements in the final html." (org-test-at-id "92518f2a-a46a-4205-a3ab-bcce1008a4bb" (org-narrow-to-subtree) (let ((exported-html - (org-export-as-html nil nil nil 'string 'body-only)) + (org-export-as-html nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file exported-html @@ -172,7 +172,7 @@ elements in the final html." (org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3" (org-narrow-to-subtree) (let ((exported-html - (org-export-as-html nil nil nil 'string 'body-only)) + (org-export-as-html nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file exported-html @@ -202,7 +202,7 @@ elements in the final html." "=%name=\n#+BEGIN_SRC %lang%flags\nbody\n#+END_SRC")) (org-test-at-id "b02ddd8a-eeb8-42ab-8664-8a759e6f43d9" (org-narrow-to-subtree) - (let ((ascii (org-export-as-ascii nil nil nil 'string 'body-only))) + (let ((ascii (org-export-as-ascii nil nil 'string 'body-only))) (should (string-match "qux" ascii)))))) (ert-deftest ob-exp/export-with-header-argument () @@ -215,14 +215,14 @@ elements in the final html." #+BEGIN_SRC %lang%flags\nbody\n#+END_SRC")) (org-test-at-id "b02ddd8a-eeb8-42ab-8664-8a759e6f43d9" (org-narrow-to-subtree) - (let ((ascii (org-export-as-ascii nil nil nil 'string 'body-only))) + (let ((ascii (org-export-as-ascii nil nil 'string 'body-only))) (should (string-match "baz" ascii)) (should (string-match "replace" ascii)))))) (ert-deftest ob-exp/noweb-no-export-and-exports-both () (org-test-at-id "8a820f6c-7980-43db-8a24-0710d33729c9" (org-narrow-to-subtree) - (let ((html (org-export-as-html nil nil nil 'string 'body-only))) + (let ((html (org-export-as-html nil nil 'string 'body-only))) (should (string-match (regexp-quote "noweb-no-export-and-exports-both-1") html))))) @@ -230,14 +230,14 @@ elements in the final html." (org-test-at-id "96cc7073-97ec-4556-87cf-1f9bffafd317" (org-narrow-to-subtree) (let (*evaluation-collector*) - (org-export-as-ascii nil nil nil 'string) + (org-export-as-ascii nil nil 'string) (should (equal '(5 4 3 2 1) *evaluation-collector*))))) (ert-deftest ob-exp/export-call-line-information () (org-test-at-id "bec63a04-491e-4caa-97f5-108f3020365c" (org-narrow-to-subtree) (let* ((org-babel-exp-call-line-template "\n: call: %line special-token") - (html (org-export-as-html nil nil nil 'string t))) + (html (org-export-as-html nil nil 'string t))) (should (string-match "double" html)) (should (string-match "16" html)) (should (string-match "special-token" html))))) @@ -247,7 +247,7 @@ elements in the final html." (org-narrow-to-subtree) (org-babel-next-src-block 2) (should (= 110 (org-babel-execute-src-block))) - (let ((ascii (org-export-as-ascii nil nil nil 'string t))) + (let ((ascii (org-export-as-ascii nil nil 'string t))) (should-not (string-match (regexp-quote "<<strip-export-1>>") ascii)) (should-not (string-match (regexp-quote "i=\"10\"") ascii))))) @@ -272,7 +272,7 @@ elements in the final html." #+END_SRC " (let* ((org-current-export-file (current-buffer)) - (ascii (org-export-as-ascii nil nil nil 'string))) + (ascii (org-export-as-ascii nil nil 'string))) (should (string-match (regexp-quote (format nil "%S" '(:foo :bar))) ascii))))) diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index 4e4f0fe..3f5f31d 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -80,7 +80,7 @@ "Test the export of a variety of library babel call lines." (org-test-at-id "72ddeed3-2d17-4c7f-8192-a575d535d3fc" (org-narrow-to-subtree) - (let ((html (org-export-as-html nil nil nil 'string 'body-only))) + (let ((html (org-export-as-html nil nil 'string 'body-only))) ;; check the location of each exported number (with-temp-buffer (insert html) (goto-char (point-min)) diff --git a/testing/lisp/test-org-exp.el b/testing/lisp/test-org-exp.el index 2c4f586..c6acb7e 100644 --- a/testing/lisp/test-org-exp.el +++ b/testing/lisp/test-org-exp.el @@ -26,6 +26,6 @@ (org-narrow-to-subtree) (should (string-match ", 2" - (org-export-as-ascii nil nil nil 'string))))) + (org-export-as-ascii nil nil 'string))))) (provide 'test-org-exp) |