Shift-right is busted on large shifts.

diff --git a/tests/runtime/test-integer-bits.scm b/tests/runtime/test-integer-bits.scm
index 575c7a5a8a83fd685d217ae957c7eb5d798152eb..531d08d9e5ae6800357c56929cf27619b79754eb 100644 (file)
--- a/tests/runtime/test-integer-bits.scm
+++ b/tests/runtime/test-integer-bits.scm
@@ -463,3 +463,9 @@ USA.
 
 (define-test 'UTF8-N:5 (lambda () (assert-= 5 (utf8-n #b11111001))))
 (define-test 'UTF8-N:6 (lambda () (assert-= 6 (utf8-n #b11111101))))
+\f
+(define-test 'SHIFT-RIGHT/TOO-MANY
+  (lambda ()
+    (expect-failure
+     (lambda ()
+       (assert-= (shift-right (identity-procedure 1234567) 100) 0)))))
\ No newline at end of file