diff options
| author | Philipp Stephani | 2019-04-17 21:27:15 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2019-04-17 21:28:21 +0200 |
| commit | 774da19789b650fbce969c975bbb78920b7b2c66 (patch) | |
| tree | 7732e9603d7d2ab5f727537f297028d09de612f7 | |
| parent | 2116dfffce257dd727409788b1d5a9dca9754543 (diff) | |
| download | emacs-774da19789b650fbce969c975bbb78920b7b2c66.tar.gz emacs-774da19789b650fbce969c975bbb78920b7b2c66.zip | |
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.
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 3011 | (setcar (nthcdr 4 attr2) tramp-time-dont-know) | 3011 | (setcar (nthcdr 4 attr2) tramp-time-dont-know) |
| 3012 | (equal attr1 attr2)) | 3012 | (equal attr1 attr2)) |
| 3013 | 3013 | ||
| 3014 | ;; This isn't 100% correct, but better than no explainer at all. | ||
| 3015 | (put #'tramp--test-file-attributes-equal-p 'ert-explainer #'ert--explain-equal) | ||
| 3016 | |||
| 3014 | (ert-deftest tramp-test19-directory-files-and-attributes () | 3017 | (ert-deftest tramp-test19-directory-files-and-attributes () |
| 3015 | "Check `directory-files-and-attributes'." | 3018 | "Check `directory-files-and-attributes'." |
| 3016 | (skip-unless (tramp--test-enabled)) | 3019 | (skip-unless (tramp--test-enabled)) |