Foster-1.0.2: benchmarks/Bench.hs

module Main where

import Criterion.Main
import Foster.Interpreter
import System.Environment (withArgs)

main :: IO ()
main = defaultMain 
    [ bgroup "foster generate" 
        [ bench "1,1"  $ whnfIO $ withArgs ["generate", "1,1", "-s"] interpret 
        , bench "10,10"  $ whnfIO $ withArgs ["generate", "10,10", "-s"] interpret
        , bench "100,100" $ whnfIO $ withArgs ["generate", "100,100", "-s"] interpret
        , bench "200,200" $ whnfIO $ withArgs ["generate", "200,200", "-s"] interpret
        , bench "300,300" $ whnfIO $ withArgs ["generate", "300,300", "-s"] interpret
        , bench "1000,1000" $ whnfIO $ withArgs ["generate", "1000,1000", "-s"] interpret
        , bench "2000,2000" $ whnfIO $ withArgs ["generate", "2000,2000", "-s"] interpret
        , bench "3000,3000" $ whnfIO $ withArgs ["generate", "3000,3000", "-s"] interpret
        ]
    ]