aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/buffer-tests.el1
-rw-r--r--test/src/data-tests.el6
2 files changed, 4 insertions, 3 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el
index 6e9764625a9..0db66f97517 100644
--- a/test/src/buffer-tests.el
+++ b/test/src/buffer-tests.el
@@ -20,6 +20,7 @@
20;;; Code: 20;;; Code:
21 21
22(require 'ert) 22(require 'ert)
23(require 'seq)
23(eval-when-compile (require 'cl-lib)) 24(eval-when-compile (require 'cl-lib))
24 25
25(ert-deftest overlay-modification-hooks-message-other-buf () 26(ert-deftest overlay-modification-hooks-message-other-buf ()
diff --git a/test/src/data-tests.el b/test/src/data-tests.el
index 3cebb3dfa57..ed092039078 100644
--- a/test/src/data-tests.el
+++ b/test/src/data-tests.el
@@ -174,7 +174,7 @@ most-positive-fixnum, which is just less than a power of 2.")
174 sum 1)) 174 sum 1))
175 175
176(defun test-bool-vector-bv-from-hex-string (desc) 176(defun test-bool-vector-bv-from-hex-string (desc)
177 (let (bv nchars nibbles) 177 (let (bv nibbles)
178 (dolist (c (string-to-list desc)) 178 (dolist (c (string-to-list desc))
179 (push (string-to-number 179 (push (string-to-number
180 (char-to-string c) 180 (char-to-string c)
@@ -244,9 +244,9 @@ comparing the subr with a much slower lisp implementation."
244 244
245(defun test-bool-vector-apply-mock-op (mock a b c) 245(defun test-bool-vector-apply-mock-op (mock a b c)
246 "Compute (slowly) the correct result of a bool-vector set operation." 246 "Compute (slowly) the correct result of a bool-vector set operation."
247 (let (changed nv) 247 (let (changed)
248 (cl-assert (eql (length b) (length c))) 248 (cl-assert (eql (length b) (length c)))
249 (if a (setf nv a) 249 (unless a
250 (setf a (make-bool-vector (length b) nil)) 250 (setf a (make-bool-vector (length b) nil))
251 (setf changed t)) 251 (setf changed t))
252 252