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.

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index c88b1b83da99821df47388aad161be3393cd136d..926bf3371c88eff2ddd9c3ee8ebbab70935e05c7 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -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))