From: Philipp Stephani <phst@google.com>
Date: Wed, 17 Apr 2019 19:27:15 +0000 (+0200)
Subject: Add ERT explainer for 'tramp--test-file-attributes-equal-p'
X-Git-Tag: emacs-27.0.90~3224
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=774da19789b650fbce969c975bbb78920b7b2c66;p=emacs.git

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 c88b1b83da9..926bf3371c8 100644
--- 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))