diff options
Diffstat (limited to 'libraries/ghc-compact/tests')
| -rw-r--r-- | libraries/ghc-compact/tests/compact_share.hs | 5 | ||||
| -rw-r--r-- | libraries/ghc-compact/tests/compact_share.stdout-ws-32 | 8 | ||||
| -rw-r--r-- | libraries/ghc-compact/tests/compact_share.stdout-ws-64 | 8 |
3 files changed, 11 insertions, 10 deletions
diff --git a/libraries/ghc-compact/tests/compact_share.hs b/libraries/ghc-compact/tests/compact_share.hs index 323c179cca..5dd279cab8 100644 --- a/libraries/ghc-compact/tests/compact_share.hs +++ b/libraries/ghc-compact/tests/compact_share.hs @@ -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))) diff --git a/libraries/ghc-compact/tests/compact_share.stdout-ws-32 b/libraries/ghc-compact/tests/compact_share.stdout-ws-32 index a6ac978c74..0f92940c65 100644 --- a/libraries/ghc-compact/tests/compact_share.stdout-ws-32 +++ b/libraries/ghc-compact/tests/compact_share.stdout-ws-32 @@ -1,4 +1,4 @@ -275599 -1900544 -275599 -1114112 +411963 +2588672 +411963 +1343488 diff --git a/libraries/ghc-compact/tests/compact_share.stdout-ws-64 b/libraries/ghc-compact/tests/compact_share.stdout-ws-64 index 0969fdf956..fffe20823f 100644 --- a/libraries/ghc-compact/tests/compact_share.stdout-ws-64 +++ b/libraries/ghc-compact/tests/compact_share.stdout-ws-64 @@ -1,4 +1,4 @@ -275599 -3801088 -275599 -2228224 +411963 +5177344 +411963 +2686976 |