From fcd269baa872b73cc635059b8ec2eb23d7c24657 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 20 Dec 2012 01:33:04 +0100 Subject: [PATCH] test-ob-exp.el (ob-exp/mixed-blocks-with-exports-both): Fix test * test-ob-exp.el (ob-exp/mixed-blocks-with-exports-both): Fix test. Thanks to Nick Dokos for reporting this. --- testing/lisp/test-ob-exp.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 5b706d8c6..7faf808a4 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -169,23 +169,19 @@ elements in the final html." """")))))) (ert-deftest ob-exp/mixed-blocks-with-exports-both () - (org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3" + (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 nil 'string 'body-only)) (test-point 0)) (org-test-with-temp-text-in-file exported-html - ;; check following ouput exists and in order (mapcar (lambda (x) - (should (< test-point - (re-search-forward - x - nil t))) + (should (< test-point (re-search-forward x nil t))) (setq test-point (point))) '("mixed blocks with exports both" - "