bump version to 1.0 tag

tests/Test.hs

@@ -10,34 +10,14 @@ import qualified System.Directory as Directory
 
 import qualified Data.ByteString.Lazy as LBS
 
-import qualified Language.Wasm.Lexer as Lexer
-import qualified Language.Wasm.Parser as Parser
-import qualified Language.Wasm.Structure as Structure
-import qualified Language.Wasm.Binary as Binary
-import qualified Language.Wasm.Validate as Validate
-import qualified Language.Wasm.Interpreter as Interpreter
+import qualified Language.Wasm as Wasm
 import qualified Language.Wasm.Script as Script
 
-import qualified Debug.Trace as Debug
-
-isRight :: (Show b) => Either a b -> Bool
-isRight (Right x) = x `seq` True
-isRight _         = False
-
-compile :: String -> IO ()
-compile file = do
-  content <- LBS.readFile $ "tests/samples/" ++ file
-  let Right mod = Lexer.scanner content >>= Parser.parseModule
-  LBS.writeFile ("tests/runnable/" ++ file) $ Binary.dumpModuleLazy mod
-  -- to run: python -m SimpleHTTPServer 8081 && open http://localhost:8081/tests/runnable
-
 main :: IO ()
 main = do
   files <- Directory.listDirectory "tests/samples"
-  -- let files = ["address.wast"]
   scriptTestCases <- (`mapM` files) $ \file -> do
-    content <- LBS.readFile $ "tests/samples/" ++ file
-    let Right script = Lexer.scanner content >>= Parser.parseScript
+    Right script <- Wasm.parseScript <$> LBS.readFile ("tests/samples/" ++ file)
     return $ testCase file $ do
       Script.runScript (\msg assert -> assertFailure ("Failed assert: " ++ msg ++ ". Assert " ++ show assert)) script
   defaultMain $ testGroup "Wasm Core Test Suit" scriptTestCases