pass tests in elem.wat test suit

2022-06-02 20:54:15 -06:00
parent e9140ae70c
commit 0b44ee13b8
3 changed files with 33 additions and 9 deletions
@@ -173,6 +173,7 @@ runScript onAssertFail script = do

        getFailureString :: Validate.ValidationError -> [TL.Text]
        getFailureString (Validate.TypeMismatch _ _) = ["type mismatch"]
+        getFailureString (Validate.RefTypeMismatch _ _) = ["type mismatch"]
        getFailureString Validate.ResultTypeDoesntMatch = ["type mismatch"]
        getFailureString Validate.MoreThanOneMemory = ["multiple memories"]
        getFailureString Validate.MoreThanOneTable = ["multiple tables"]