source/Test/Unit.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Test.Unit where


import Test.Tasty
import Test.Tasty.HUnit
import Test.Unit.Symdiff qualified as Symdiff


unitTests :: TestTree
unitTests = testGroup "unit tests" [testCase "filter" filtersWell]


filtersWell :: Assertion
filtersWell = do
    assertBool "Filter works on symdiff problem" Symdiff.filtersWell