moonlight-category-0.1.0.0: bench/abstract/AbstractBench.hs

module AbstractBench
  ( abstractBenchmarks,
  )
where

import Adhesive.Suite (adhesiveBenchmarks)
import Algebraic.Suite (algebraicSurfaceBenchmarks)
import Covering (coveringBenchmarks)
import Test.Tasty.Bench (Benchmark, bgroup)

abstractBenchmarks :: Benchmark
abstractBenchmarks =
  bgroup
    "abstract"
    [ coveringBenchmarks,
      adhesiveBenchmarks,
      algebraicSurfaceBenchmarks
    ]