[project @ 1999-07-29 10:03:18 by simonmar]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith011.hs

diff --git a/ghc/tests/numeric/should_run/arith011.hs b/ghc/tests/numeric/should_run/arith011.hs
index 903bc25..e469c0c 100644 (file)
--- a/ghc/tests/numeric/should_run/arith011.hs
+++ b/ghc/tests/numeric/should_run/arith011.hs
@@ -131,14 +131,14 @@ testBits zero = do
   table2 ".|.  "            (.|.)         xs ys
   table2 "`xor`"            xor           xs ys
   table1 "complement"       complement    xs
-  table2 "`shiftL`"         shiftL        xs [0..3] 
-  table2 "`shiftR`"         shiftR        xs [0..3] 
+  table2 "`shiftL`"         shiftL        xs ([0..3] ++ [32])
+  table2 "`shiftR`"         shiftR        xs ([0..3] ++ [32]) 
   table2 "`rotate`"         rotate        xs ([-3..3])
   table1 "bit"              (\ x -> (bit x) `asTypeOf` zero)   [(0::Int)..3]
-  table2 "`setBit`"         setBit        xs [0..3]
-  table2 "`clearBit`"       clearBit      xs [0..3]
-  table2 "`complementBit`"  complementBit xs [0..3]
-  table2 "`testBit`"        testBit       xs [0..3]
+  table2 "`setBit`"         setBit        xs ([0..3] ++ [32])
+  table2 "`clearBit`"       clearBit      xs ([0..3] ++ [32])
+  table2 "`complementBit`"  complementBit xs ([0..3] ++ [32])
+  table2 "`testBit`"        testBit       xs ([0..3] ++ [32])
   table1 "bitSize"          bitSize       xs
   table1 "isSigned"         isSigned      xs
  where