Ilya Rezvov
18 lines
396 B
Haskell
18 lines
396 B
Haskell
module Main (
|
|
main
|
|
) where
|
|
|
|
import Test.Tasty
|
|
import Test.Tasty.HUnit
|
|
|
|
import qualified Data.ByteString.Lazy as LBS
|
|
|
|
import qualified Language.Wasm.Lexer as Lexer
|
|
import qualified Language.Wasm.Parser as Parser
|
|
|
|
main :: IO ()
|
|
main = do
|
|
file <- LBS.readFile "tests/samples/mod.wast"
|
|
print $ Parser.parseModule . map Lexer.tok <$> Lexer.scanner file
|
|
defaultMain $ testGroup "Test Suite" []
|