diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-08 13:49:53 +0200 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-08-09 21:14:36 -0300 |
| commit | 73b8f0b8d71af395667022395b6d6bb692c3aaf2 (patch) | |
| tree | 67bf477a310b78970a32cc3db233e27b57973f72 /test/test-lib.el | |
| parent | 73cc4105aa27f13464fcfdfe958e553842395789 (diff) | |
emacs: Various cosmetic changes
Diffstat (limited to 'test/test-lib.el')
| -rw-r--r-- | test/test-lib.el | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/test/test-lib.el b/test/test-lib.el index 6a39bbe2..e9e7c379 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -154,22 +154,21 @@ running, quit if it terminated." (defun notmuch-test-expect-equal (output expected) "Compare OUTPUT with EXPECTED. Report any discrepencies." - (if (equal output expected) - t - (cond - ((and (listp output) - (listp expected)) - ;; Reporting the difference between two lists is done by - ;; reporting differing elements of OUTPUT and EXPECTED - ;; pairwise. This is expected to make analysis of failures - ;; simpler. - (apply #'concat (cl-loop for o in output - for e in expected - if (not (equal o e)) - collect (notmuch-test-report-unexpected o e)))) - - (t - (notmuch-test-report-unexpected output expected))))) + (cond + ((equal output expected) + t) + ((and (listp output) + (listp expected)) + ;; Reporting the difference between two lists is done by + ;; reporting differing elements of OUTPUT and EXPECTED + ;; pairwise. This is expected to make analysis of failures + ;; simpler. + (apply #'concat (cl-loop for o in output + for e in expected + if (not (equal o e)) + collect (notmuch-test-report-unexpected o e)))) + (t + (notmuch-test-report-unexpected output expected)))) (defun notmuch-post-command () (run-hooks 'post-command-hook)) |