From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Dec 2018 16:44:12 +0000 (+0000)
Subject: Shift-right is busted on large shifts.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~13
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=909220845424aab46b6f73d9de5cf861821f89aa;p=mit-scheme.git

Shift-right is busted on large shifts.
---

diff --git a/tests/runtime/test-integer-bits.scm b/tests/runtime/test-integer-bits.scm
index 575c7a5a8..531d08d9e 100644
--- 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))))
+
+(define-test 'SHIFT-RIGHT/TOO-MANY
+  (lambda ()
+    (expect-failure
+     (lambda ()
+       (assert-= (shift-right (identity-procedure 1234567) 100) 0)))))
\ No newline at end of file