From ef903e0f5ac27c80a2d3429392a82c3d24795c55 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 29 Nov 2025 17:23:23 +0100 Subject: [PATCH] * test/src/data-tests.el (data-tests-ash-lsh): Test for bug#79876. --- test/src/data-tests.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/test/src/data-tests.el b/test/src/data-tests.el index e93cc3831f9..1499be015b5 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el @@ -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) -1) most-negative-fixnum)) + (should (= (ash 1 48) #x1000000000000)) + (should (= (ash 1 72) #x1000000000000000000)) (with-suppressed-warnings ((suspicious lsh)) (should (= (lsh most-negative-fixnum 1) (* most-negative-fixnum 2)))