add reference types test to test suite

tests/Test.hs

@@ -16,14 +16,20 @@ import qualified Data.List as List
 
 main :: IO ()
 main = do
-  files <- filter (List.isSuffixOf ".wast") <$> Directory.listDirectory "tests/spec"
+  let groups = [
+          ("Core Tests", "tests/spec"),
+          ("Reference Types Proposal", "tests/spec/proposals/reference-types")
+        ]
+  testGroups <- (`mapM` groups) $ \(groupName, dir) -> do
+    files <- filter (List.isSuffixOf ".wast") <$> Directory.listDirectory dir
     -- let files = ["const.wast"]
     scriptTestCases <- (`mapM` files) $ \file -> do
-    test <- LBS.readFile ("tests/spec/" ++ file)
+      test <- LBS.readFile (dir ++ "/" ++ file)
       return $ testCase file $ do
         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
+    return $ testGroup groupName scriptTestCases
+  defaultMain $ testGroup "Wasm Test Suit" testGroups