diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-30 21:32:50 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-01-30 21:32:50 +0100 |
commit | ed516e65dcc98f70375fcdeccd05ca18ac56732a (patch) | |
tree | 8e6407c7c108d3e2628371cb31616b5f775c1348 | |
parent | c1226e80d4babe6b046c66d2e7ed92349bbb4768 (diff) | |
download | org-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.el | 15 |
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))))))) |