handle more parsing edgecases

2021-04-07 10:35:51 -07:00
parent 93a79badbe
commit fa1d9a7bd1
3 changed files with 78 additions and 42 deletions
@@ -187,6 +187,7 @@ runScript onAssertFail script = do
        getFailureString Validate.InvalidResultArity = ["invalid result arity"]
        getFailureString Validate.GlobalIsImmutable = ["global is immutable"]
        getFailureString Validate.InvalidStartFunctionType = ["start function"]
+        getFailureString Validate.InvalidTableType = ["size minimum must not be greater than maximum"]
        getFailureString r = [TL.concat ["not implemented ", (TL.pack $ show r)]]

        printFailedAssert :: String -> Assertion -> AssertM ()