replace hardcoded tests with submodule to the official testsuit

Author: SPY

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "tests/spec"]
+	path = tests/spec
+	url = https://github.com/WebAssembly/testsuite

src/Language/Wasm/Interpreter.hs

@@ -37,7 +37,6 @@ import Data.Word (Word8, Word16, Word32, Word64)
 import Data.Int (Int32, Int64)
 import Numeric.Natural (Natural)
 import qualified Control.Monad as Monad
-import Data.Monoid ((<>))
 import Data.Bits (
         Bits,
         (.|.),

src/Language/Wasm/Lexer.x

@@ -13,7 +13,6 @@ module Language.Wasm.Lexer (
 import qualified Data.ByteString.Lazy as LBS
 import qualified Data.Char as Char
 import qualified Data.ByteString.Lazy.UTF8 as LBSUtf8
-import Control.Applicative ((<$>))
 import Control.Monad (when)
 import Numeric.IEEE (infinity, nan)
 import Language.Wasm.FloatUtils (makeNaN, doubleToFloat)

stack.yaml.lock

@@ -0,0 +1,12 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages: []
+snapshots:
+- completed:
+    size: 531707
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/5.yaml
+    sha256: 9751e25e0af5713a53ddcfcc79564b082c71b1b357fadef0d85672a5b5ba3703
+  original: lts-16.5

tests/Test.hs

@@ -12,12 +12,17 @@ import qualified Data.ByteString.Lazy as LBS
 
 import qualified Language.Wasm as Wasm
 import qualified Language.Wasm.Script as Script
+import qualified Data.List as List
 
 main :: IO ()
 main = do
-  files <- Directory.listDirectory "tests/samples"
+  files <- filter (List.isSuffixOf ".wast") <$> Directory.listDirectory "tests/spec"
   scriptTestCases <- (`mapM` files) $ \file -> do
-    Right script <- Wasm.parseScript <$> LBS.readFile ("tests/samples/" ++ file)
+    test <- LBS.readFile ("tests/spec/" ++ file)
     return $ testCase file $ do
-      Script.runScript (\msg assert -> assertFailure ("Failed assert: " ++ msg ++ ". Assert " ++ show assert)) script
+      case Wasm.parseScript test of
+        Right script -> 
+          Script.runScript (\msg assert -> assertFailure ("Failed assert: " ++ msg ++ ". Assert " ++ show assert)) script
+        Left error ->
+          assertFailure $ "Failed to parse with error: " ++ show error
   defaultMain $ testGroup "Wasm Core Test Suit" scriptTestCases