633bb18 · streamly · git.iko.soy

benchmark/NanoBenchmarks.hs+1−1

compare with master

unifiedsplit

@@ -18,7 +18,7 @@ import qualified Streamly.Data.Fold as FL

18import qualified Streamly.Internal.Data.Stream as S

19import qualified Streamly.Internal.Data.Stream.IsStream as Internal

20

21−import Gauge

21+import Test.Tasty.Bench

22import System.Random

23

24maxValue :: Int

benchmark/Streamly/Benchmark/Data/Array/CommonImports.hs+1−1

@@ -9,7 +9,7 @@ import qualified Streamly.Data.Fold as Fold

9import qualified Streamly.Data.Stream as S

10import qualified Streamly.Internal.Data.Stream as Stream

11

12−import Gauge

12+import Test.Tasty.Bench

13import Streamly.Benchmark.Common hiding (benchPureSrc)

14import qualified Stream.Common as P

15

benchmark/Streamly/Benchmark/Data/Array/Stream.hs+1−1

@@ -47,7 +47,7 @@ import qualified Streamly.Internal.Data.StreamK as StreamK

47import qualified Streamly.Internal.FileSystem.Handle as Handle

48import qualified Streamly.Internal.Unicode.Stream as Unicode

49

50−import Gauge hiding (env)

50+import Test.Tasty.Bench hiding (env)

51import Streamly.Benchmark.Common

52import Streamly.Benchmark.Common.Handle

53import Control.Monad.IO.Class (MonadIO)

benchmark/Streamly/Benchmark/Data/Fold.hs+1−1

@@ -41,7 +41,7 @@ import qualified Streamly.Internal.Data.Unfold as Unfold

41import qualified Streamly.Internal.Data.Pipe as Pipe

42import qualified Streamly.Internal.Data.Stream as Stream

43

44−import Gauge

44+import Test.Tasty.Bench

45import Streamly.Benchmark.Common

46import Prelude hiding (all, any, take, unzip, sequence_, filter)

47

benchmark/Streamly/Benchmark/Data/Fold/Window.hs+1−1

@@ -13,7 +13,7 @@ import qualified Streamly.Internal.Data.Ring as Ring

13import qualified Streamly.Internal.Data.Stream as Stream

14

15import Streamly.Benchmark.Common

16−import Gauge

16+import Test.Tasty.Bench

17

18{-# INLINE source #-}

19source :: (Monad m, Num a, Stream.Enumerable a) =>

benchmark/Streamly/Benchmark/Data/MutArray.hs+1−1

@@ -49,7 +49,7 @@ import qualified Streamly.Internal.Data.MutArray as MArray

49import qualified Streamly.Internal.Data.Fold as Fold

50import qualified Streamly.Internal.Data.Stream as Stream

51

52−import Gauge

52+import Test.Tasty.Bench

53import Streamly.Benchmark.Common hiding (benchPureSrc)

54

55type Stream = MutArray

benchmark/Streamly/Benchmark/Data/Parser.hs+1−1

@@ -49,7 +49,7 @@ import qualified Streamly.Data.Stream as Stream

49import qualified Streamly.Internal.Data.Producer as Producer

50import qualified Streamly.Internal.Data.Stream as Stream

51

52−import Gauge hiding (env)

52+import Test.Tasty.Bench hiding (env)

53import Streamly.Benchmark.Common

54import Streamly.Benchmark.Common.Handle

55

benchmark/Streamly/Benchmark/Data/ParserK.hs+1−1

@@ -48,7 +48,7 @@ import qualified Streamly.Data.Parser as PRD

48import qualified Streamly.Internal.Data.ParserK as PR

49import qualified Streamly.Internal.Data.StreamK as StreamK

50

51−import Gauge

51+import Test.Tasty.Bench

52import Streamly.Benchmark.Common

53

54-------------------------------------------------------------------------------

benchmark/Streamly/Benchmark/Data/Ring/Unboxed.hs+1−1

@@ -16,7 +16,7 @@ import qualified Streamly.Internal.Data.Array as Array

16import qualified Streamly.Internal.Data.Ring as Ring

17import qualified Data.Foldable as P

18

19−import Gauge

19+import Test.Tasty.Bench

20import Streamly.Benchmark.Common

21

22import Prelude as P

benchmark/Streamly/Benchmark/Data/Serialize.hs+1−1

@@ -42,7 +42,7 @@ import Streamly.Internal.Data.Serialize.TH

42#endif

43#endif

44

45−import Gauge

45+import Test.Tasty.Bench

46import Streamly.Benchmark.Common

47

48#ifndef USE_UNBOX

benchmark/Streamly/Benchmark/Data/Stream/Common.hs+1−1

@@ -104,7 +104,7 @@ import qualified Streamly.Internal.Data.Stream as StreamK

104#endif

105#endif

106

107−import Gauge

107+import Test.Tasty.Bench

108import Prelude hiding (Foldable(..), mapM, replicate)

109

110#ifdef USE_STREAMK

benchmark/Streamly/Benchmark/Data/Stream/ConcurrentCommon.hs+1−1

@@ -21,7 +21,7 @@ import qualified Streamly.Data.Fold as Fold

21import qualified Streamly.Data.Stream as Stream

22import qualified Streamly.Internal.Data.Stream.Concurrent as Async

23

24−import Gauge

24+import Test.Tasty.Bench

25import Prelude hiding (mapM)

26import Streamly.Benchmark.Common

27

benchmark/Streamly/Benchmark/Data/Stream/Eliminate.hs+1−1

@@ -57,7 +57,7 @@ import qualified Streamly.Internal.Data.Stream as StreamK

57#endif

58#endif

59

60−import Gauge

60+import Test.Tasty.Bench

61import Streamly.Benchmark.Common

62import Prelude hiding (length, sum, or, and, any, all, notElem, elem, (!!),

63 lookup, repeat, minimum, maximum, product, last, mapM_, init)

benchmark/Streamly/Benchmark/Data/Stream/Exceptions.hs+1−1

@@ -45,7 +45,7 @@ import qualified Streamly.Internal.Data.Stream as Stream

45import qualified Streamly.Internal.Data.Stream.Exception.Lifted as Stream

46#endif

47

48−import Gauge hiding (env)

48+import Test.Tasty.Bench hiding (env)

49import Prelude hiding (last, length)

50import Streamly.Benchmark.Common

51import Streamly.Benchmark.Common.Handle

benchmark/Streamly/Benchmark/Data/Stream/Expand.hs+1−1

@@ -54,7 +54,7 @@ import qualified Streamly.Internal.Data.Stream as StreamK

54#endif

55#endif

56

57−import Gauge

57+import Test.Tasty.Bench

58import Stream.Common

59import Streamly.Benchmark.Common

60import Prelude hiding (concatMap)

benchmark/Streamly/Benchmark/Data/Stream/Generate.hs+1−1

@@ -40,7 +40,7 @@ import qualified Stream.Common as Common

40#endif

41#endif

42

43−import Gauge

43+import Test.Tasty.Bench

44import Streamly.Benchmark.Common

45import qualified Prelude

46

benchmark/Streamly/Benchmark/Data/Stream/Lift.hs+1−1

@@ -37,7 +37,7 @@ import qualified Control.Monad.State.Strict as State

37#endif

38#endif

39

40−import Gauge

40+import Test.Tasty.Bench

41import Streamly.Benchmark.Common

42import Prelude hiding (reverse, tail)

43

benchmark/Streamly/Benchmark/Data/Stream/Reduce.hs+1−1

@@ -61,7 +61,7 @@ import qualified Streamly.Internal.Data.Stream as K

61

62#endif

63

64−import Gauge

64+import Test.Tasty.Bench

65import Streamly.Benchmark.Common

66import Stream.Common

67import Prelude hiding (reverse, tail)

benchmark/Streamly/Benchmark/Data/Stream/Split.hs+1−1

@@ -35,7 +35,7 @@ import qualified Streamly.Internal.FileSystem.Handle as IFH

35import qualified Streamly.Internal.Unicode.Stream as IUS

36import qualified Streamly.Prelude as S

37

38−import Gauge hiding (env)

38+import Test.Tasty.Bench hiding (env)

39import Prelude hiding (last, length)

40import Streamly.Benchmark.Common

41import Streamly.Benchmark.Common.Handle

benchmark/Streamly/Benchmark/Data/Stream/StreamD.hs+1−1

@@ -27,7 +27,7 @@ import Control.Applicative (liftA2)

27#endif

28import Control.Monad (when)

29import Data.Maybe (isJust)

30−import Gauge (bench, nfIO, bgroup, Benchmark, defaultMain)

30+import Test.Tasty.Bench (bench, nfIO, bgroup, Benchmark, defaultMain)

31import System.Random (randomRIO)

32import Prelude hiding (tail, mapM_, foldl, last, map, mapM, concatMap, zip)

33

benchmark/Streamly/Benchmark/Data/Stream/StreamK.hs+1−1

@@ -37,7 +37,7 @@ import qualified Data.List as List

37

38import qualified Streamly.Internal.Data.StreamK as S

39

40−import Gauge (bench, nfIO, bgroup, Benchmark, defaultMain)

40+import Test.Tasty.Bench (bench, nfIO, bgroup, Benchmark, defaultMain)

41

42import Streamly.Benchmark.Common

43

benchmark/Streamly/Benchmark/Data/Stream/StreamKAlt.hs+1−1

@@ -23,7 +23,7 @@ import qualified Streamly.Internal.Data.StreamK.Alt as S

23-- import qualified Streamly.Internal.Data.SVar as S

24

25import Streamly.Benchmark.Common

26−import Gauge (bgroup, Benchmark, defaultMain)

26+import Test.Tasty.Bench (bgroup, Benchmark, defaultMain)

27

28value :: Int

29value = 100000

benchmark/Streamly/Benchmark/Data/Stream/ToStreamK.hs+1−1

@@ -37,7 +37,7 @@ import qualified Streamly.Internal.Data.StreamK as S

37import qualified Streamly.Internal.Data.Stream as D

38import qualified Streamly.Internal.Data.Fold as Fold

39

40−import Gauge (bgroup, Benchmark, defaultMain)

40+import Test.Tasty.Bench (bgroup, Benchmark, defaultMain)

41

42import Streamly.Benchmark.Common

43

benchmark/Streamly/Benchmark/Data/Stream/Transform.hs+1−1

@@ -58,7 +58,7 @@ import qualified Streamly.Internal.Data.StreamK as StreamK

58#endif

59#endif

60

61−import Gauge

61+import Test.Tasty.Bench

62import Stream.Common hiding (scanl')

63import Streamly.Benchmark.Common

64import Prelude hiding (sequence, mapM)

benchmark/Streamly/Benchmark/Data/Unfold.hs+1−1

@@ -36,7 +36,7 @@ import qualified Streamly.Internal.Data.Stream as S

36import qualified Streamly.Internal.Data.Stream as D

37import qualified Streamly.Internal.Data.StreamK as K

38

39−import Gauge hiding (env)

39+import Test.Tasty.Bench hiding (env)

40import Prelude hiding (take, filter, zipWith, map, mapM, takeWhile)

41import Streamly.Benchmark.Common

42import Streamly.Benchmark.Common.Handle

benchmark/Streamly/Benchmark/FileSystem/Handle.hs+1−1

@@ -22,7 +22,7 @@ import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)

22import qualified Handle.ReadWrite as RW

23import qualified Handle.Read as RO

24

25−import Gauge hiding (env)

25+import Test.Tasty.Bench hiding (env)

26import Prelude hiding (last, length)

27import Streamly.Benchmark.Common

28

benchmark/Streamly/Benchmark/FileSystem/Handle/Read.hs+1−1

@@ -41,7 +41,7 @@ import qualified Streamly.Internal.Unicode.Stream as IUS

41import qualified Streamly.Data.Stream.Prelude as S

42import qualified Streamly.Unicode.Stream as SS

43

44−import Gauge hiding (env)

44+import Test.Tasty.Bench hiding (env)

45import Prelude hiding (last, length)

46import Streamly.Benchmark.Common.Handle

47

benchmark/Streamly/Benchmark/FileSystem/Handle/ReadWrite.hs+1−1

@@ -34,7 +34,7 @@ import qualified Streamly.Internal.FileSystem.Handle as IFH

34import qualified Streamly.Data.Array as A

35import qualified Streamly.Data.Stream.Prelude as S

36

37−import Gauge hiding (env)

37+import Test.Tasty.Bench hiding (env)

38import Streamly.Benchmark.Common.Handle

39

40#ifdef INSPECTION

benchmark/Streamly/Benchmark/Prelude/Adaptive.hs+1−1

@@ -10,7 +10,7 @@

10import Control.Concurrent (threadDelay)

11import Control.Monad (when)

12import Control.Monad.IO.Class (liftIO)

13−import Gauge

13+import Test.Tasty.Bench

14import Streamly.Prelude as S

15import System.Random (randomRIO)

16

benchmark/Streamly/Benchmark/Prelude/Ahead.hs+1−1

@@ -15,7 +15,7 @@ import qualified Streamly.Prelude as S

15import Streamly.Benchmark.Common

16import Streamly.Benchmark.Prelude

17

18−import Gauge

18+import Test.Tasty.Bench

19

20moduleName :: String

21moduleName = "Prelude.Ahead"

benchmark/Streamly/Benchmark/Prelude/Async.hs+1−1

@@ -16,7 +16,7 @@ import qualified Streamly.Internal.Data.Stream.IsStream.Transform as Transform

16import Streamly.Benchmark.Common

17import Streamly.Benchmark.Prelude

18

19−import Gauge

19+import Test.Tasty.Bench

20

21moduleName :: String

22moduleName = "Prelude.Async"

benchmark/Streamly/Benchmark/Prelude/Concurrent.hs+1−1

@@ -15,7 +15,7 @@ import Streamly.Prelude

15 , fromWAsync, parallel, fromParallel

16 )

17

18−import Gauge

18+import Test.Tasty.Bench

19import qualified Streamly.Prelude as S

20

21-------------------------------------------------------------------------------

benchmark/Streamly/Benchmark/Prelude/Merge.hs+1−1

@@ -30,7 +30,7 @@ import qualified Streamly.Internal.Data.Stream.IsStream as Stream

30import Streamly.Benchmark.Common

31import Streamly.Benchmark.Prelude

32

33−import Gauge

33+import Test.Tasty.Bench

34

35#ifdef INSPECTION

36import GHC.Types (SPEC(..))

benchmark/Streamly/Benchmark/Prelude/Parallel.hs+1−1

@@ -22,7 +22,7 @@ import qualified Streamly.Internal.Data.Stream.IsStream as Internal

22import Streamly.Benchmark.Common

23import Streamly.Benchmark.Prelude

24

25−import Gauge

25+import Test.Tasty.Bench

26

27moduleName :: String

28moduleName = "Prelude.Parallel"

benchmark/Streamly/Benchmark/Prelude/Rate.hs+1−1

@@ -14,7 +14,7 @@ import qualified Streamly.Prelude as S

14import Streamly.Benchmark.Common

15import Streamly.Benchmark.Prelude

16

17−import Gauge

17+import Test.Tasty.Bench

18

19moduleName :: String

20moduleName = "Prelude.Rate"

benchmark/Streamly/Benchmark/Prelude/WAsync.hs+1−1

@@ -15,7 +15,7 @@ import qualified Streamly.Prelude as S

15import Streamly.Benchmark.Common

16import Streamly.Benchmark.Prelude

17

18−import Gauge

18+import Test.Tasty.Bench

19

20moduleName :: String

21moduleName = "Prelude.WAsync"

benchmark/Streamly/Benchmark/Prelude/WSerial.hs+1−1

@@ -29,7 +29,7 @@ import qualified Streamly.Internal.Data.Unfold as UF

29import Streamly.Benchmark.Common

30import Streamly.Benchmark.Prelude

31

32−import Gauge

32+import Test.Tasty.Bench

33

34#ifdef INSPECTION

35import GHC.Types (SPEC(..))

benchmark/Streamly/Benchmark/Prelude/ZipAsync.hs+1−1

@@ -15,7 +15,7 @@ import qualified Streamly.Prelude as S

15import Streamly.Benchmark.Common

16import Streamly.Benchmark.Prelude

17

18−import Gauge

18+import Test.Tasty.Bench

19

20moduleName :: String

21moduleName = "Prelude.ZipAsync"

benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+1−1

@@ -29,7 +29,7 @@ import qualified Streamly.Prelude as S

29import Streamly.Benchmark.Common

30import Streamly.Benchmark.Prelude hiding (sourceUnfoldrM)

31

32−import Gauge

32+import Test.Tasty.Bench

33

34#ifdef INSPECTION

35import GHC.Types (SPEC(..))

benchmark/Streamly/Benchmark/Unicode/Char.hs+1−1

@@ -16,7 +16,7 @@ import Control.DeepSeq (NFData(..))

16import Streamly.Internal.Data.Array (Array)

17import System.FilePath (dropExtensions, takeFileName)

18import System.FilePath.Posix ((</>))

19−import Gauge.Main (Benchmark, bench, bgroup, defaultMain, env, nfIO)

19+import Test.Tasty.Bench (Benchmark, bench, bgroup, defaultMain, env, nfIO)

20import Streamly.Internal.Unicode.Char

21 ( NormalizationMode(NFC, NFD, NFKC, NFKD)

22 , normalize

benchmark/Streamly/Benchmark/Unicode/Parser.hs+1−1

@@ -31,7 +31,7 @@ import qualified Streamly.Data.Array as Array

31import qualified Streamly.Data.Stream as Stream

32import qualified Streamly.Internal.Unicode.Parser as PRU

33

34−import Gauge hiding (env)

34+import Test.Tasty.Bench hiding (env)

35import Streamly.Benchmark.Common

36

37runParser :: Int -> (Stream IO Char -> IO a) -> IO ()

benchmark/Streamly/Benchmark/Unicode/Stream.hs+1−1

@@ -33,7 +33,7 @@ import qualified Streamly.Internal.FileSystem.Handle as Handle

33import qualified Streamly.Internal.Unicode.Array as UnicodeArr

34import qualified Streamly.Internal.Unicode.Stream as Unicode

35

36−import Gauge hiding (env)

36+import Test.Tasty.Bench hiding (env)

37import Streamly.Benchmark.Common

38import Streamly.Benchmark.Common.Handle

39

benchmark/Streamly/Benchmark/Unicode/Utf8.hs+1−1

@@ -13,7 +13,7 @@

13import Data.Char (chr)

14import Streamly.Internal.Unicode.Utf8 (Utf8)

15

16−import Gauge hiding (env)

16+import Test.Tasty.Bench hiding (env)

17import Streamly.Benchmark.Common

18

19import qualified Streamly.Internal.Unicode.Utf8 as Utf8

benchmark/lib/Streamly/Benchmark/Common.hs+1−1

@@ -56,7 +56,7 @@ import System.Random (randomRIO)

56import qualified Streamly.Internal.Data.Fold as Fold

57import qualified Streamly.Internal.Data.Stream as S

58

59−import Gauge

59+import Test.Tasty.Bench

60

61-------------------------------------------------------------------------------

62-- Benchmark Prefixes

benchmark/lib/Streamly/Benchmark/Common/Handle.hs+1−1

@@ -46,7 +46,7 @@ import System.Process (callCommand)

46

47import Data.IORef

48import Prelude hiding (last, length)

49−import Gauge hiding (env)

49+import Test.Tasty.Bench hiding (env)

50

51

52scratchDir :: String

benchmark/lib/Streamly/Benchmark/Prelude.hs+1−1

@@ -82,7 +82,7 @@ import qualified Streamly.Internal.Data.Stream.IsStream.Type as IsStream

82import qualified Streamly.Internal.Data.Pipe as Pipe

83import qualified Streamly.Internal.Data.Stream.Serial as Serial

84

85−import Gauge

85+import Test.Tasty.Bench

86import Streamly.Internal.Data.Time.Units

87

88-- Common polymorphic stream APIs used across multiple stream modules

benchmark/streamly-benchmarks.cabal+4−19

@@ -54,11 +54,6 @@ flag opt

54 manual: True

55 default: True

56

57−flag use-gauge

58− description: Use gauge instead of tasty-bench for benchmarking

59− manual: True

60− default: False

61−

62flag use-streamly-core

57flag use-streamly-core

63 description: Benchmark only core package

58 description: Benchmark only core package

64 manual: True

59 manual: True

@@ -195,22 +190,12 @@ common bench-depends

195 , directory >= 1.2.2 && < 1.4

190 , directory >= 1.2.2 && < 1.4

196 , filepath >= 1.4.1 && < 1.5

191 , filepath >= 1.4.1 && < 1.5

197 , ghc-prim >= 0.4 && < 0.12

192 , ghc-prim >= 0.4 && < 0.12

193+ , tasty-bench >= 0.3 && < 0.4

194+ , tasty >= 1.4.1 && < 1.6

195+ , streamly-core

198

196

199− if flag(use-streamly-core)

197+ if !flag(use-streamly-core)

200− build-depends: streamly-core

201− else

202 build-depends: streamly

198 build-depends: streamly

203− , streamly-core

204−

205− if flag(use-gauge)

206− build-depends: gauge >= 0.2.4 && < 0.3

207− else

208− build-depends: tasty-bench >= 0.3 && < 0.4

209− , tasty >= 1.4.1 && < 1.6

210− mixins: tasty-bench

211− (Test.Tasty.Bench as Gauge

212− , Test.Tasty.Bench as Gauge.Main

213− )

214

199

215 if flag(fusion-plugin) && !impl(ghcjs) && !impl(ghc < 8.6)

200 if flag(fusion-plugin) && !impl(ghcjs) && !impl(ghc < 8.6)

216 build-depends:

201 build-depends: