ghc-compact: Use Char instead of Integer in compact_share test
authorBen Gamari <ben@smart-cactus.org>
Sun, 23 Dec 2018 17:33:12 +0000 (12:33 -0500)
committerBen Gamari <ben@smart-cactus.org>
Mon, 24 Dec 2018 05:31:33 +0000 (00:31 -0500)
The representation of Integer depends upon the choice of integer backend whereas
Char should be consistent.

libraries/ghc-compact/tests/compact_share.hs
libraries/ghc-compact/tests/compact_share.stdout-ws-64

index 323c179..5dd279c 100644 (file)
@@ -1,9 +1,10 @@
+import Data.Char
 import GHC.Compact
 import qualified Data.Map as Map
 
 main = do
-  let m1 = Map.fromList [(x,show x) | x <- [1..(10000::Integer)]]
-      m2 = Map.fromList [(x,y) | x <- [1..(10000::Integer)],
+  let m1 = Map.fromList [(x,show x) | x <- ['a'..chr 10000]]
+      m2 = Map.fromList [(x,y) | x <- ['a'..chr 10000],
                                  Just y <- [Map.lookup x m1]]
   c <- compact (m1,m2)
   print (length (show (getCompact c)))