[elpa] externals/org c41a2198f2 2/2: testing: Provide more debug info for diary sexps

[ELPA Syncer]

branch: externals/org
commit c41a2198f2d7a3fbae5953f4b25c84cbe6692e2e
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    testing: Provide more debug info for diary sexps
    
    * testing/org-test.el (org-test-run-batch-tests):
    (org-test-run-all-tests): Bind `calendar-debug-sexp' to non-nil when
    running tests.
    
    See https://orgmode.org/list/t2hpe9$119m$1@ciao.gmane.io
---
 testing/org-test.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/testing/org-test.el b/testing/org-test.el
index 9f7bab9eaa..65d157bca2 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -457,7 +457,9 @@ Load all test files first."
   (let ((org-id-track-globally t)
        (org-test-selector
         (if org-test-selector org-test-selector "\\(org\\|ob\\)"))
-       org-confirm-babel-evaluate org-startup-folded vc-handled-backends)
+       org-confirm-babel-evaluate org-startup-folded vc-handled-backends
+        ;; Catch errors in diary sexps better.
+        (calendar-debug-sexp t))
     (org-test-touch-all-examples)
     (org-test-update-id-locations)
     (org-test-load)
@@ -471,7 +473,9 @@ Load all test files first."
   (org-test-touch-all-examples)
   (org-test-update-id-locations)
   (org-test-load)
-  (ert "\\(org\\|ob\\)")
+  (let (;; Catch errors in diary sexps better.
+        (calendar-debug-sexp t))
+    (ert "\\(org\\|ob\\)"))
   (org-test-kill-all-examples))
 
 (defmacro org-test-at-time (time &rest body)