debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

test: Remove misguided emacs testing utilities

Browse source 
The goal of this abstraction was to save space.  But that failed as
the result actually was that four trivial lines got replace with 15
fairly complicated lines.  The opposite of what it was supposed to
do.

Also it made it harder to come up with the fix in the previous commit;
simply grepping for the relevant symbols did not work because they get
constructed at run-time instead of appearing in the source file.
This commit is contained in:
Jonas Bernoulli 2020-07-27 17:25:02 +02:00 committed by David Bremner
parent d5d8846c32
commit 7b752e9eb4
1 changed files with 4 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/test-lib.el
View file

@ -104,26 +104,15 @@ running, quit if it terminated."
"Initiate orphan watchdog check." "Initiate orphan watchdog check."
(run-at-time 60 60 'orphan-watchdog-check pid)) (run-at-time 60 60 'orphan-watchdog-check pid))
(defun hook-counter (hook)
"Count how many times a hook is called. Increments
`hook'-counter variable value if it is bound, otherwise does
nothing."
(let ((counter (intern (concat (symbol-name hook) "-counter"))))
(if (boundp counter)
(set counter (1+ (symbol-value counter))))))
(defun add-hook-counter (hook)
"Add hook to count how many times `hook' is called."
(add-hook hook (apply-partially 'hook-counter hook)))
(add-hook-counter 'notmuch-hello-mode-hook)
(add-hook-counter 'notmuch-hello-refresh-hook)
(defvar notmuch-hello-mode-hook-counter -100 (defvar notmuch-hello-mode-hook-counter -100
"Tests that care about this counter must let-bind it to 0.") "Tests that care about this counter must let-bind it to 0.")
(add-hook 'notmuch-hello-mode-hook
(lambda () (cl-incf notmuch-hello-mode-hook-counter)))
(defvar notmuch-hello-refresh-hook-counter -100 (defvar notmuch-hello-refresh-hook-counter -100
"Tests that care about this counter must let-bind it to 0.") "Tests that care about this counter must let-bind it to 0.")
(add-hook 'notmuch-hello-refresh-hook
(lambda () (cl-incf notmuch-hello-refresh-hook-counter)))
(defadvice notmuch-search-process-filter (around pessimal activate disable) (defadvice notmuch-search-process-filter (around pessimal activate disable)
"Feed notmuch-search-process-filter one character at a time." "Feed notmuch-search-process-filter one character at a time."