From 20681d40deea937c6b6196ab4e27444bbc99271d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Oct 2009 01:41:18 +0000 Subject: [PATCH] tests for bitwise-bit-field repair svn: r16233 --- collects/tests/mzscheme/number.ss | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/tests/mzscheme/number.ss b/collects/tests/mzscheme/number.ss index 7f811a81bb..94f713b1f7 100644 --- a/collects/tests/mzscheme/number.ss +++ b/collects/tests/mzscheme/number.ss @@ -1154,6 +1154,9 @@ (test 1 bitwise-bit-field (bitwise-not (expt 2 101)) 70 71) (test 7144187 bitwise-bit-field (expt 3 75) 0 24) +(test 42 bitwise-bit-field 42 0 32) +(test (sub1 (expt 2 32)) bitwise-bit-field -1 32 64) + (arity-test bitwise-bit-field 3 3) (err/rt-test (bitwise-bit-field "a" 1 2)) (err/rt-test (bitwise-bit-field 13 -1 2))