mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-11 09:21:23 -07:00
Code Issues Projects Releases Wiki Activity

Crrections to tedt coverrage extensuion after bootstrap build.

Browse source 
Files: data-tests.el, editfns-tests.el.
This commit is contained in:
Eric S. Raymond 2026-02-25 11:45:38 -05:00
parent 6eb170b007
commit 90af3295c7
2 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
test/src/data-tests.el
View file

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

3
test/src/editfns-tests.el
View file

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