Crrections to tedt coverrage extensuion after bootstrap build.

Files: data-tests.el, editfns-tests.el.

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 ()