start the validator refactoring to deal with multiresults

2021-04-05 22:10:45 -07:00
parent ee1c7d3f7a
commit 604f8f190d
2 changed files with 26 additions and 24 deletions
@@ -17,7 +17,7 @@ import qualified Data.List as List
 main :: IO ()
 main = do
  files <- filter (List.isSuffixOf ".wast") <$> Directory.listDirectory "tests/spec"
-  -- let files = ["imports.wast", "block.wast", "loop.wast", "if.wast", "stack.wast", "func.wast"]
+  -- let files = ["call.wast"]
  scriptTestCases <- (`mapM` files) $ \file -> do
    test <- LBS.readFile ("tests/spec/" ++ file)
    return $ testCase file $ do