emacs-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]