on e123780 help sign in
elk/tests/libraries/Test.elm
40 lines 931 B history raw
1module Main where
3import ElmTest.Assertion as A
4import ElmTest.Run as R
5import ElmTest.Runner.Console (runDisplay)
6import ElmTest.Test (..)
8import IO.IO (..)
9import IO.Runner (Request, Response)
10import IO.Runner as Run
12import Test.Array as Array
13import Test.Dict as Dict
14import Test.Equality as Equality
15import Test.List as List
16import Test.Set as Set
17import Test.String as String
18import Test.Trampoline as Trampoline
20tests : Test
21tests = suite "Elm Standard Library Tests"
22 [ Array.tests
23 , Dict.tests
24 , Equality.tests
25 , List.tests
26 , Set.tests
27 , String.tests
28 , Trampoline.tests
29 ]
31console : IO ()
32console = runDisplay tests
34port requests : Signal [{ mPut : Maybe String
35 , mExit : Maybe Int
36 , mGet : Bool
37 }]
38port requests = Run.run responses console
40port responses : Signal (Maybe String)