test-invariant-0.3.1.2: bench/Bench.hs

module Main where

import Criterion.Main
import Test.Invariant
import Test.QuickCheck

main :: IO ()
main = defaultMain benchmarks

benchmarks :: [Benchmark]
benchmarks = [ bench "Monotonic" . nfIO . quickCheck $ monotonicIncreasing (*(0::Int)) ]