module Main where

import ElmTest.Assertion as A
import ElmTest.Run as R
import ElmTest.Runner.Console (runDisplay)
import ElmTest.Test (..)

import IO.IO (..)
import IO.Runner (Request, Response)
import IO.Runner as Run

import Test.Array as Array
import Test.Char as Char
import Test.Dict as Dict
import Test.Equality as Equality
import Test.List as List
import Test.Set as Set
import Test.String as String
import Test.Trampoline as Trampoline

tests : Test
tests = suite "Elm Standard Library Tests"
        [ Array.tests
        , Char.tests
        , Dict.tests
        , Equality.tests
        , List.tests
        , Set.tests
        , String.tests
        , Trampoline.tests
        ]

console : IO ()
console = runDisplay tests

port requests : Signal [{ mPut  : Maybe String
                        , mExit : Maybe Int
                        , mGet  : Bool
                        }]
port requests = Run.run responses console

port responses : Signal (Maybe String)