From 774da19789b650fbce969c975bbb78920b7b2c66 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Wed, 17 Apr 2019 21:27:15 +0200 Subject: [PATCH] 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. --- test/lisp/net/tramp-tests.el | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 2.39.5