Add ERT explainer for 'tramp--test-file-attributes-equal-p'

* test/lisp/net/tramp-tests.el (tramp--test-file-attributes-equal-p):
Use ERT explainer for 'equal' to improve failure messages.
This commit is contained in:
Philipp Stephani 2019-04-17 21:27:15 +02:00
parent 2116dfffce
commit 774da19789

View file

@ -3011,6 +3011,9 @@ They might differ only in access time."
(setcar (nthcdr 4 attr2) tramp-time-dont-know)
(equal attr1 attr2))
;; This isn't 100% correct, but better than no explainer at all.
(put #'tramp--test-file-attributes-equal-p 'ert-explainer #'ert--explain-equal)
(ert-deftest tramp-test19-directory-files-and-attributes ()
"Check `directory-files-and-attributes'."
(skip-unless (tramp--test-enabled))