import test.hunit
import system.io
import absrl
import abssrl hiding (ident)
import qualified abssrl
import control.monad.state
import compiler

--ラベルを表示する関数
tests = testlist
    [ "fact 1" ~: label 1 ~?= ident "l1"
    , "fact 2" ~: label 2 ~?= ident "l2"
    , "fact 3" ~: label 3 ~?= ident "l3"
    ]

main =
    runTestText (putTextToHandle stderr False) tests
