diff options
Diffstat (limited to 'test/src/casefiddle-tests.el')
| -rw-r--r-- | test/src/casefiddle-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/casefiddle-tests.el b/test/src/casefiddle-tests.el index eb096f21129..652af417293 100644 --- a/test/src/casefiddle-tests.el +++ b/test/src/casefiddle-tests.el | |||
| @@ -57,7 +57,7 @@ | |||
| 57 | errors))) | 57 | errors))) |
| 58 | (setq expected (cdr expected))))) | 58 | (setq expected (cdr expected))))) |
| 59 | (when errors | 59 | (when errors |
| 60 | (ert-fail (mapconcat (lambda (line) line) (nreverse errors) ""))))) | 60 | (ert-fail (mapconcat #'identity (nreverse errors)))))) |
| 61 | 61 | ||
| 62 | 62 | ||
| 63 | (defconst casefiddle-tests--characters | 63 | (defconst casefiddle-tests--characters |
| @@ -98,7 +98,7 @@ | |||
| 98 | errors))) | 98 | errors))) |
| 99 | (setq props (cdr props) tabs (cdr tabs) expected (cdr expected))))) | 99 | (setq props (cdr props) tabs (cdr tabs) expected (cdr expected))))) |
| 100 | (when errors | 100 | (when errors |
| 101 | (mapconcat (lambda (line) line) (nreverse errors) ""))))) | 101 | (mapconcat #'identity (nreverse errors)))))) |
| 102 | 102 | ||
| 103 | 103 | ||
| 104 | (ert-deftest casefiddle-tests-casing-character () | 104 | (ert-deftest casefiddle-tests-casing-character () |
| @@ -116,7 +116,7 @@ | |||
| 116 | errors))) | 116 | errors))) |
| 117 | (setq funcs (cdr funcs) expected (cdr expected))))) | 117 | (setq funcs (cdr funcs) expected (cdr expected))))) |
| 118 | (when errors | 118 | (when errors |
| 119 | (mapconcat (lambda (line) line) (nreverse errors) ""))))) | 119 | (mapconcat (lambda (line) line) (nreverse errors)))))) |
| 120 | 120 | ||
| 121 | 121 | ||
| 122 | (ert-deftest casefiddle-tests-casing-word () | 122 | (ert-deftest casefiddle-tests-casing-word () |