2022-02-15 16:12:53 +03:00
|
|
|
module Main (main) where
|
|
|
|
|
2022-06-13 15:25:22 +03:00
|
|
|
import Arity qualified
|
2022-05-05 16:12:17 +03:00
|
|
|
import BackendC qualified
|
2022-02-15 16:12:53 +03:00
|
|
|
import Base
|
2022-05-04 11:50:03 +03:00
|
|
|
import MonoJuvix qualified
|
2022-07-25 19:38:44 +03:00
|
|
|
import Reachability qualified
|
2022-04-05 20:57:21 +03:00
|
|
|
import Scope qualified
|
2022-05-30 14:40:52 +03:00
|
|
|
import Termination qualified
|
2022-04-05 20:57:21 +03:00
|
|
|
import TypeCheck qualified
|
2022-02-15 16:12:53 +03:00
|
|
|
|
2022-05-05 16:12:17 +03:00
|
|
|
slowTests :: TestTree
|
|
|
|
slowTests =
|
2022-04-05 20:57:21 +03:00
|
|
|
testGroup
|
2022-07-08 14:59:45 +03:00
|
|
|
"Juvix slow tests"
|
2022-05-05 16:12:17 +03:00
|
|
|
[BackendC.allTests]
|
|
|
|
|
|
|
|
fastTests :: TestTree
|
|
|
|
fastTests =
|
|
|
|
testGroup
|
2022-07-08 14:59:45 +03:00
|
|
|
"Juvix fast tests"
|
2022-04-05 20:57:21 +03:00
|
|
|
[ Scope.allTests,
|
2022-05-30 14:40:52 +03:00
|
|
|
Termination.allTests,
|
2022-06-13 15:25:22 +03:00
|
|
|
Arity.allTests,
|
2022-05-04 11:50:03 +03:00
|
|
|
TypeCheck.allTests,
|
2022-07-25 19:38:44 +03:00
|
|
|
Reachability.allTests,
|
2022-05-04 11:50:03 +03:00
|
|
|
MonoJuvix.allTests
|
2022-04-05 20:57:21 +03:00
|
|
|
]
|
2022-02-15 16:12:53 +03:00
|
|
|
|
|
|
|
main :: IO ()
|
2022-05-05 16:12:17 +03:00
|
|
|
main = do
|
2022-07-08 14:59:45 +03:00
|
|
|
defaultMain (testGroup "Juvix tests" [fastTests, slowTests])
|