module Main where

import qualified Bril as B
import Data.Aeson (decode)
import Data.Maybe

import Test.HUnit
import qualified System.Exit as Exit
 
test1 :: Test
test1 = TestCase
        (assertEqual "?" (decode "\"int\"" :: Maybe B.Type) (Just B.Int))
 
tests :: Test
tests = TestList [TestLabel "test1" test1]
 
main :: IO ()
main = do
    result <- runTestTT tests
    if failures result > 0 then Exit.exitFailure else Exit.exitSuccess