test/test-runner/Main.hs · streamly

git.iko.soy/streamly

on e061109 help sign in

32 lines 852 B history raw

1module Main where

3import TestRunner (mainWith)

4import BuildLib (Quickness(..))

5import Control.Applicative ((<|>))

6import Data.List (isInfixOf, isPrefixOf, isSuffixOf)

7import Data.Map (Map)

9import qualified Data.Map as Map

10import Targets (targets)

12rtsOpts :: Bool -> String -> String -> String

13rtsOpts relaxMem exeName target =

15 if relaxMem

16 then "-K16M -M1024M"

17 else "-K8M -M64M " <> targetSpecific

19 where

21 targetSpecific =

22 case target of

23 -- XXX Data.Array.* heap requirement increased for GHC-8.10

24 "Data.Array.Unboxed" -> "-M128M"

25 "Prelude.Rate" -> "-M512M"

26 -- For -O0 case writeChunks test fails, maybe we should have a

27 -- separate flag for O0 case?

28 "FileSystem.Handle" -> "-K16M"

29 _ -> ""

31main :: IO ()

32main = mainWith targets rtsOpts