mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-04 21:57:25 +03:00
70 lines
2.1 KiB
Haskell
70 lines
2.1 KiB
Haskell
{-# OPTIONS_GHC -Wno-unused-imports #-}
|
|
{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
|
|
|
|
module Main where
|
|
|
|
import EasyTest
|
|
import System.Environment (getArgs)
|
|
import System.IO
|
|
import System.IO.CodePage (withCP65001)
|
|
import Unison.Core.Test.Name qualified as Name
|
|
import Unison.Test.ABT qualified as ABT
|
|
import Unison.Test.ANF qualified as ANF
|
|
import Unison.Test.Codebase.Branch qualified as Branch
|
|
import Unison.Test.Codebase.Causal qualified as Causal
|
|
import Unison.Test.Codebase.Path qualified as Path
|
|
import Unison.Test.CodebaseInit qualified as CodebaseInit
|
|
import Unison.Test.DataDeclaration qualified as DataDeclaration
|
|
import Unison.Test.MCode qualified as MCode
|
|
import Unison.Test.Referent qualified as Referent
|
|
import Unison.Test.Syntax.FileParser qualified as FileParser
|
|
import Unison.Test.Syntax.TermParser qualified as TermParser
|
|
import Unison.Test.Syntax.TypePrinter qualified as TypePrinter
|
|
import Unison.Test.Term qualified as Term
|
|
import Unison.Test.Type qualified as Type
|
|
import Unison.Test.Typechecker qualified as Typechecker
|
|
import Unison.Test.Typechecker.Context qualified as Context
|
|
import Unison.Test.Typechecker.TypeError qualified as TypeError
|
|
import Unison.Test.UnisonSources qualified as UnisonSources
|
|
import Unison.Test.Util.PinBoard qualified as PinBoard
|
|
import Unison.Test.Util.Relation qualified as Relation
|
|
import Unison.Test.Util.Text qualified as Text
|
|
import Unison.Test.Var qualified as Var
|
|
|
|
test :: Test ()
|
|
test =
|
|
tests
|
|
[ Term.test,
|
|
TermParser.test,
|
|
Type.test,
|
|
TypeError.test,
|
|
TypePrinter.test,
|
|
UnisonSources.test,
|
|
FileParser.test,
|
|
DataDeclaration.test,
|
|
Text.test,
|
|
Relation.test,
|
|
Path.test,
|
|
Causal.test,
|
|
Referent.test,
|
|
ABT.test,
|
|
ANF.test,
|
|
MCode.test,
|
|
Var.test,
|
|
Typechecker.test,
|
|
Context.test,
|
|
Name.test,
|
|
PinBoard.test,
|
|
CodebaseInit.test,
|
|
Branch.test
|
|
]
|
|
|
|
main :: IO ()
|
|
main = withCP65001 do
|
|
args <- getArgs
|
|
mapM_ (`hSetEncoding` utf8) [stdout, stdin, stderr]
|
|
case args of
|
|
[] -> runOnly "" test
|
|
[prefix] -> runOnly prefix test
|
|
[seed, prefix] -> rerunOnly (read seed) prefix test
|