import GoldenTest (runGoldenTest) import System.Info (os) import Test.Tasty (TestTree, defaultMain, testGroup) import Tests.WaspBuildTest (waspBuild) import Tests.WaspCompileTest (waspCompile) import Tests.WaspComplexTest (waspComplexTest) import Tests.WaspJobTest (waspJob) import Tests.WaspMigrateTest (waspMigrate) import Tests.WaspNewTest (waspNew) main :: IO () main = do if os == "mingw32" then putStrLn "Skipping end-to-end tests on Windows due to tests using *nix-only commands" else tests >>= defaultMain -- TODO: Add more tests to simulate full Todo app tutorial. -- Some of this requires waspStart and stdout parsing. -- TODO: Investigate automatically discovering the tests. tests :: IO TestTree tests = do testGroup "All Golden Dir Tests" <$> mapM runGoldenTest [ waspNew, waspCompile, waspMigrate, waspBuild, waspJob, waspComplexTest ]