loops-0.2.0.2: test/Test.hs

module Main where

import Test.Tasty
import Test.Tasty.QuickCheck as QC

import Test.Sum

main :: IO ()
main = defaultMain $ testGroup "Tests"
  [ testGroup "sum"
      [ QC.testProperty "foldl" prop_sum_foldl_LoopT
      , QC.testProperty "foldr" prop_sum_foldr_LoopT
      , QC.testProperty "foldl (Unroll)" prop_sum_foldl_LoopT_Unroll
      , QC.testProperty "foldr (Unroll)" prop_sum_foldr_LoopT_Unroll
      , QC.testProperty "break order" prop_break_order
      ]
  ]