branch: externals/org
commit 4695d26ff009cc2798f68188cc8af8630bd2960d
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
test-org/at-planning-p: Fix changing parser settings after loading
* testing/lisp/test-org.el (test-org/at-planning-p): Do not alter
parser settings after loading the buffer. This is not expected and
may break when cache is active.
---
testing/lisp/test-org.el | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index e7769ba6c9..108f19b20c 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -6357,21 +6357,25 @@ Text.
;; Correctly find planning attached to inlinetasks.
(when (featurep 'org-inlinetask)
(should
- (org-test-with-temp-text
- "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>\n*** END"
- (let ((org-inlinetask-min-level 3)) (org-at-planning-p))))
+ (let ((org-inlinetask-min-level 3))
+ (org-test-with-temp-text
+ "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>\n*** END"
+ (org-at-planning-p))))
(should-not
- (org-test-with-temp-text
- "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>"
- (let ((org-inlinetask-min-level 3)) (org-at-planning-p))))
+ (let ((org-inlinetask-min-level 3))
+ (org-test-with-temp-text
+ "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>"
+ (org-at-planning-p))))
(should-not
- (org-test-with-temp-text
- "* Headline\n*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>"
- (let ((org-inlinetask-min-level 3)) (org-at-planning-p))))
+ (let ((org-inlinetask-min-level 3))
+ (org-test-with-temp-text
+ "* Headline\n*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>"
+ (org-at-planning-p))))
(should-not
- (org-test-with-temp-text
- "* Headline\n*** Inlinetask\n*** END\n<point>DEADLINE: <2014-03-04
tue.>"
- (let ((org-inlinetask-min-level 3)) (org-at-planning-p))))))
+ (let ((org-inlinetask-min-level 3))
+ (org-test-with-temp-text
+ "* Headline\n*** Inlinetask\n*** END\n<point>DEADLINE: <2014-03-04
tue.>"
+ (org-at-planning-p))))))
(ert-deftest test-org/add-planning-info ()
"Test `org-add-planning-info'."
