TFHOE/Raw/Test.hs

   1 module Raw.Test where
   2
   3 import Test.Tasty
   4 -- import Test.Tasty.HUnit
   5
   6 tests :: TestTree
   7 tests = testGroup "Raw" $
   8  [ ]
   9
  10 {-
  11 main :: IO ()
  12 main = do
  13         print $ ($ 42) <$> expr_int_succ -- Right 43
  14         print $ ($ 42) <$> expr_bool_const_true -- Right True
  15 -}