test: define test_private_C

[notmuch] / test / test-lib.el

diff --git a/test/test-lib.el b/test/test-lib.el
index c840bc98b0597e781a08dcfa45fe0f428385cdba..79a9d4d6fc5b574cbd21e6e9bd27039689a2d01a 100644 (file)
--- a/test/test-lib.el
+++ b/test/test-lib.el
@@ -174,6 +174,23 @@ running, quit if it terminated."
                           " "))
                       tags-to-letters ""))))
 
+;; Log any signalled error (and other messages) to MESSAGES
+;; Log "COMPLETE" if forms complete without error.
+(defmacro test-log-error (&rest body)
+  `(progn
+     (with-current-buffer "*Messages*"
+       (let ((inhibit-read-only t)) (erase-buffer)))
+     (condition-case err
+       (progn ,@body
+         (message "COMPLETE"))
+       (t (message "%s" err)))
+     (with-current-buffer "*Messages*" (test-output "MESSAGES"))))
+
+(defmacro test-time (&rest body)
+  `(let ((results (mapcar (lambda (x) (/ x 5.0)) (benchmark-run 5 ,@body))))
+     (message "\t\t%0.2f\t%0.2f\t%0.2f" (nth 0 results) (nth 1 results) (nth 2 results))
+     (with-current-buffer "*Messages*" (test-output "MESSAGES"))))
+
 ;; For historical reasons, we hide deleted tags by default in the test
 ;; suite
 (setq notmuch-tag-deleted-formats