Go tests work. Now to generalize this

Author: Patrick Thomson

semantic-go/BUILD.bazel

@@ -4,9 +4,33 @@ load(
     "//:build/common.bzl",
     "semantic_language_library",
 )
+load(
+    "@rules_haskell//haskell:defs.bzl",
+    "haskell_test",
+)
 
 semantic_language_library(
     name = "semantic-go",
     srcs = glob(["src/**/*.hs"]),
     language = "go",
 )
+
+haskell_test(
+    name = "test",
+    srcs = ["test/PreciseTest.hs"],
+    data = ["@tree-sitter-go//:corpus"],
+    deps = [
+        ":semantic-go",
+        "//:base",
+        "//:bytestring",
+        "//:text",
+        "//semantic:fixtureshim",
+        "//semantic-ast",
+        "@stackage//:bazel-runfiles",
+        "@stackage//:hedgehog",
+        "@stackage//:pathtype",
+        "@stackage//:tasty",
+        "@stackage//:tasty-hedgehog",
+        "@stackage//:tasty-hunit",
+    ],
+)

semantic-go/test/PreciseTest.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DisambiguateRecordFields, OverloadedStrings, TypeApplications #-}
+{-# LANGUAGE DisambiguateRecordFields, OverloadedStrings, TypeApplications, ImplicitParams #-}
 module Main (main) where
 
 
@@ -8,14 +8,20 @@ import           AST.TestHelpers
 import           AST.Unmarshal
 import qualified System.Path as Path
 import           Test.Tasty
-
+import qualified Bazel.Runfiles as Runfiles
+import qualified System.Path.Fixture as Fixture
 
 main :: IO ()
-main
-  =   Path.absDir <$> Go.getTestCorpusDir
-  >>= readCorpusFiles'
-  >>= traverse (testCorpus parse)
-  >>= defaultMain . tests
+main = do
+  rf <- Runfiles.create
+  -- dirs <- Path.absDir <$> Go.getTestCorpusDir
+  let ?project = Path.relDir "semantic-go"
+      ?runfiles = rf
+  let dirs = Fixture.bazelDir "/../external/tree-sitter-go/corpus"
+
+  readCorpusFiles' dirs
+    >>= traverse (testCorpus parse)
+    >>= defaultMain . tests
   where parse = parseByteString @Go.SourceFile @() tree_sitter_go
 
 tests :: [TestTree] -> TestTree

semantic-ruby/BUILD.bazel

@@ -11,3 +11,5 @@ semantic_language_library(
     language = "ruby",
     nodetypes = "@tree-sitter-ruby//:src/node-types.json",
 )
+
+haskell_test