import qualified Test
import qualified Test2

import Test.Framework (defaultMain)
import Test.Framework.Providers.HUnit
import Test.HUnit

import qualified Data.Set as Set

tests =
    [ testCase "Test.test1" $
        assertEqual "Correct result" (Set.fromList [4,5,6]) Test.test1
    , testCase "Test.test2" $
        assertEqual "Correct result" (Set.fromList [3,4]) Test.test2
    , testCase "Test.test3" $
        assertEqual "Correct result" (Set.fromList [3,4]) Test.test3
    , testCase "Test2.test1" $
        assertEqual "Correct result" (Set.fromList $ map (replicate 10) [1,2,3]) Test2.test1
    ]

main = defaultMain tests