simplify validation algorithm

tests/Test.hs

@@ -34,7 +34,7 @@ compile file = do
 main :: IO ()
 main = do
   files <- Directory.listDirectory "tests/samples"
-  -- let files = ["func.wast"]
+  -- let files = ["br_table.wast"]
   scriptTestCases <- (`mapM` files) $ \file -> do
     content <- LBS.readFile $ "tests/samples/" ++ file
     let Right script = Parser.parseScript <$> Lexer.scanner content

tests/samples/align.wast

@@ -12,7 +12,7 @@
 )
 (assert_invalid
   (module (memory 0) (func (drop (i64.load align=16 (i32.const 0)))))
-  "alignment"
+  "alignment must not be larger than natural"
 )
 
 (assert_malformed
@@ -29,5 +29,5 @@
 )
 (assert_invalid
   (module (memory 0) (func (i64.store align=16 (i32.const 0) (i64.const 0))))
-  "alignment"
+  "alignment must not be larger than natural"
 )