1 files changed, 5 insertions, 0 deletions

diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index daf53438811..708701a8887 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -194,4 +194,9 @@ literals (Bug#20852)."
     (lread--substitute-object-in-subtree x 1 t)
     (should (eq x (cdr x)))))
 
+(ert-deftest lread-long-hex-integer ()
+  (should-error
+   (read "#xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff")
+   :type 'overflow-error))
+
 ;;; lread-tests.el ends here