shikensu-0.2.0: tests/Test.hs

import Control.Exception (catch)
import System.Directory (removeDirectoryRecursive)
import System.FilePath (combine)
import Test.Contrib
import Test.Example
import Test.Helpers (ioErrorHandler, rootPath)
import Test.Shikensu
import Test.Tasty
import Test.Utilities


main :: IO ()
main =
    rootPath
        >>= \r -> catch
            (removeDirectoryRecursive (combine r "tests/build"))
            (ioErrorHandler)
        >> defaultMain tests


tests :: TestTree
tests =
    testGroup "Tests" [shikensuTests, contribTests, exampleTests, utilityTests]