From 909220845424aab46b6f73d9de5cf861821f89aa Mon Sep 17 00:00:00 2001 From: Taylor R Campbell 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