test/Spec.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# OPTIONS_GHC -Wno-missing-signatures #-}
import Test.HUnit
import Control.Monad.Except
import Tokenizer ( tokenize )
import TestUtils

test1 = (runLContext $ tokenize "+ 1 2")
    >>= assertEqual "tokenize \"+ 1 2\"" ["+", "1", "2"]

tests = TestList $ map TestCase [
    test1
    ]

main :: IO ()
main = void $ runTestTT tests