summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-01-30 21:32:50 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-01-30 21:32:50 +0100
commited516e65dcc98f70375fcdeccd05ca18ac56732a (patch)
tree8e6407c7c108d3e2628371cb31616b5f775c1348
parentc1226e80d4babe6b046c66d2e7ed92349bbb4768 (diff)
downloadorg-mode-ed516e65dcc98f70375fcdeccd05ca18ac56732a.tar.gz
org-export: Fix failing test
* testing/lisp/test-org-export.el: Fix failing test.
-rw-r--r--testing/lisp/test-org-export.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/testing/lisp/test-org-export.el b/testing/lisp/test-org-export.el
index 1a91a8c..d732bcc 100644
--- a/testing/lisp/test-org-export.el
+++ b/testing/lisp/test-org-export.el
@@ -561,13 +561,14 @@ body\n")))
(should
(equal "Body 1\nBody 2\n"
(org-test-with-backend test
- (org-test-with-temp-text "* Headline 1\nBody 1\n* Headline 2\nBody 2"
- (let ((org-export-before-parsing-hook
- '((lambda (backend)
- (org-map-entries
- (lambda ()
- (delete-region (point) (progn (forward-line) (point)))))))))
- (org-export-as 'test)))))))
+ (org-test-with-temp-text "* Headline 1\nBody 1\n* Headline 2\nBody 2"
+ (let ((org-export-before-parsing-hook
+ '((lambda (backend)
+ (goto-char (point-min))
+ (while (re-search-forward org-outline-regexp-bol nil t)
+ (delete-region
+ (point-at-bol) (progn (forward-line) (point))))))))
+ (org-export-as 'test)))))))