From 909220845424aab46b6f73d9de5cf861821f89aa Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Dec 2018 16:44:12 +0000
Subject: [PATCH] Shift-right is busted on large shifts.

---
 tests/runtime/test-integer-bits.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
2.25.1