From 90af3295c7fa705381bf680ec8559503ea875683 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Wed, 25 Feb 2026 11:45:38 -0500 Subject: [PATCH] Crrections to tedt coverrage extensuion after bootstrap build. Files: data-tests.el, editfns-tests.el. --- test/src/data-tests.el | 22 +++++++++++----------- test/src/editfns-tests.el | 3 ++- 2 files changed, 13 insertions(+), 12 deletions(-) diff --git a/test/src/data-tests.el b/test/src/data-tests.el index b32af958c69..51fa43c91db 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el @@ -61,15 +61,15 @@ this is exactly representable and is greater than (should-not (bool-vector-subsetp b a)) (should (bool-vector-subsetp c b)) (should-error (bool-vector-subsetp a (bool-vector t nil)))) - (let* ((interp (lambda (x) x)) - (bytec (byte-compile interp))) + (let* ((interp (eval '(lambda (x) x))) + (bytec (byte-compile (eval '(lambda (x) x))))) (should (closurep interp)) (should-not (closurep #'car)) (should (interpreted-function-p interp)) (should-not (interpreted-function-p bytec)) (should-not (interpreted-function-p #'car))) - (should (subrp #'car)) - (should (subrp #'+)) + (should (subrp (symbol-function 'car))) + (should (subrp (symbol-function '+))) (should-not (subrp (lambda (x) x))) (should-not (subrp 'car)) (should (special-variable-p 'data-tests--special-var)) @@ -77,13 +77,13 @@ this is exactly representable and is greater than (should-not (special-variable-p 'data-tests--not-special))) (ert-deftest data-tests-subr-introspection () - (should (equal (subr-arity #'car) '(1 . 1))) - (should (equal (subr-arity #'cons) '(2 . 2))) - (should (equal (subr-arity #'list) '(0 . many))) - (should (equal (subr-arity #'if) '(2 . unevalled))) - (should (equal (subr-name #'car) "car")) - (should (equal (subr-name #'cons) "cons")) - (should (equal (subr-name #'if) "if"))) + (should (equal (subr-arity (symbol-function 'car)) '(1 . 1))) + (should (equal (subr-arity (symbol-function 'cons)) '(2 . 2))) + (should (equal (subr-arity (symbol-function 'list)) '(0 . many))) + (should (equal (subr-arity (symbol-function 'if)) '(2 . unevalled))) + (should (equal (subr-name (symbol-function 'car)) "car")) + (should (equal (subr-name (symbol-function 'cons)) "cons")) + (should (equal (subr-name (symbol-function 'if)) "if"))) (ert-deftest data-tests-= () (should-error (=)) diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 91dc8750935..156e8bc1cd7 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el @@ -970,7 +970,8 @@ sufficiently large to avoid truncation." (should (equal (buffer-string) "AAA"))) (with-temp-buffer (insert-byte 200 1) - (should (= (aref (buffer-string) 0) 200))) + (should (= (aref (buffer-string) 0) + (unibyte-char-to-multibyte 200)))) (should-error (with-temp-buffer (insert-byte 256 1)))) (ert-deftest editfns-tests--insert-buffer-substring ()