mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* test/src/data-tests.el (data-tests-ash-lsh): Test for bug#79876.

Browse source
This commit is contained in:
Mattias Engdegård 2025-11-29 17:23:23 +01:00
parent c499c2f67b
commit ef903e0f5a
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -797,6 +797,8 @@ comparing the subr with a much slower Lisp implementation."
(should (= (ash (* 2 most-negative-fixnum) (* 2 most-negative-fixnum)) -1)) (should (= (ash (* 2 most-negative-fixnum) (* 2 most-negative-fixnum)) -1))
(should (= (ash (* 2 most-negative-fixnum) -1) (should (= (ash (* 2 most-negative-fixnum) -1)
most-negative-fixnum)) most-negative-fixnum))
(should (= (ash 1 48) #x1000000000000))
(should (= (ash 1 72) #x1000000000000000000))
(with-suppressed-warnings ((suspicious lsh)) (with-suppressed-warnings ((suspicious lsh))
(should (= (lsh most-negative-fixnum 1) (should (= (lsh most-negative-fixnum 1)
(* most-negative-fixnum 2))) (* most-negative-fixnum 2)))