mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 14:17:33 +03:00
36 lines
1000 B
Haskell
36 lines
1000 B
Haskell
{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
|
|
|
|
module Main where
|
|
|
|
import EasyTest
|
|
import System.Environment (getArgs)
|
|
import System.IO
|
|
import qualified Unison.Test.DataDeclaration as DataDeclaration
|
|
import qualified Unison.Test.FileParser as FileParser
|
|
import qualified Unison.Test.Lexer as Lexer
|
|
import qualified Unison.Test.Range as Range
|
|
import qualified Unison.Test.TermParser as TermParser
|
|
import qualified Unison.Test.Type as Type
|
|
import qualified Unison.Test.Typechecker as Typechecker
|
|
import qualified Unison.Test.Typechecker.TypeError as TypeError
|
|
import qualified Unison.Test.ColorText as ColorText
|
|
|
|
test :: Test ()
|
|
test = tests
|
|
[ Lexer.test
|
|
, TermParser.test
|
|
, Type.test
|
|
, Typechecker.test
|
|
, TypeError.test
|
|
, FileParser.test
|
|
, DataDeclaration.test
|
|
, Range.test
|
|
, ColorText.test
|
|
]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
mapM_ (`hSetEncoding` utf8) [stdout, stdin, stderr]
|
|
runOnly (case args of [] -> ""; [prefix] -> prefix) test
|