[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 774da19: Add ERT explainer for 'tramp--test-file-at
From: |
Philipp Stephani |
Subject: |
[Emacs-diffs] master 774da19: Add ERT explainer for 'tramp--test-file-attributes-equal-p' |
Date: |
Wed, 17 Apr 2019 15:28:36 -0400 (EDT) |
branch: master
commit 774da19789b650fbce969c975bbb78920b7b2c66
Author: Philipp Stephani <address@hidden>
Commit: Philipp Stephani <address@hidden>
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 c88b1b8..926bf33 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 774da19: Add ERT explainer for 'tramp--test-file-attributes-equal-p',
Philipp Stephani <=