>From b67f2c34fb2bea791b847c3dbb7dc26e313f779f Mon Sep 17 00:00:00 2001 From: Martyn Jago
Date: Fri, 6 Jan 2012 08:08:21 +0000 Subject: [PATCH] Changes to latest block export tests to suit Emacs 22. * testing/lisp/test-ob-exp.el: Changes to latest block export tests to suit Emacs 22. --- testing/lisp/test-ob-exp.el | 40 ++++++++++++++-------------------------- 1 files changed, 14 insertions(+), 26 deletions(-) diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 85af683..8ef27dd 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -73,7 +73,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)) + (org-export-as-html nil nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file @@ -86,9 +86,7 @@ x nil t))) (setq test-point (point))) - '("" "" "" - ":noweb
header argument expansion"
- ":noweb
header argument expansion"
+ '(":noweb
header argument expansion"
"message" "expanded1"
"message" "expanded2"
"noweb-1-yes-start"
@@ -99,8 +97,7 @@
"message" "expanded2"
"noweb-tangle-start"
"<<noweb-example1>>"
- "<<noweb-example2>>"
- ""))))))
+ "<<noweb-example2>>"))))))
(ert-deftest ob-exp/noweb-on-export-with-exports-results ()
"Noweb header arguments export correctly using :exports results.
@@ -110,7 +107,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))
+ (org-export-as-html nil nil nil 'string 'body-only))
(test-point 0))
(org-test-with-temp-text-in-file
@@ -123,9 +120,7 @@
x
nil t)))
(setq test-point (point)))
- '("" "" ""
- ":noweb
header argument expansion using :exports results"
- ":noweb
header argument expansion using :exports results"
+ '(":noweb
header argument expansion using :exports results"
"expanded1"
"expanded2"
"expanded1"
@@ -133,8 +128,7 @@
"<<noweb-example1>>"
"expanded2"
"<<noweb-example1>>"
- "<<noweb-example2>>"
- ""))))))
+ "<<noweb-example2>>"))))))
(ert-deftest ob-exp/exports-both ()
"Test the :exports both header argument.
@@ -143,9 +137,8 @@ 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))
+ (org-export-as-html nil nil nil 'string 'body-only))
(test-point 0))
-
(org-test-with-temp-text-in-file
exported-html
@@ -156,9 +149,7 @@ elements in the final html."
x
nil t)))
(setq test-point (point)))
- '("" "" ""
- "Pascal's Triangle – exports both test"
- "Pascal's Triangle – exports both test"
+ '( "Pascal's Triangle – exports both test"
""">1<"">3<"">3<"">1<""" """>1<"">4<"">6<"">4<"">1<"" " """>1<"">5<"">10<"">10<"">5<"">1<"" " - """" - "")))))) + """")))))) (ert-deftest ob-exp/mixed-blocks-with-exports-both () (org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3" (org-narrow-to-subtree) (let ((exported-html - (org-export-as-html nil nil nil 'string)) + (org-export-as-html nil nil nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file exported-html @@ -192,9 +182,7 @@ elements in the final html." x nil t))) (setq test-point (point))) - '("" "" "" - "mixed blocks with exports both" - "mixed blocks with exports both" + '("mixed blocks with exports both" "
" "code block results" - "" - "")))))) - + "")))))) + (provide 'test-ob-exp) ;;; test-ob-exp.el ends here + -- 1.7.3.4