aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/casefiddle-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/src/casefiddle-tests.el')
-rw-r--r--test/src/casefiddle-tests.el6
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 ()