Merge pull request #5514 from bbarker/runOnly_unison_syntax

add runOnly support for unison-syntax tests

Author: aryairani

CONTRIBUTORS.markdown

@@ -89,3 +89,4 @@ The format for this list: name, GitHub handle
 * Eduard Nicodei (@neduard)
 * Brian McKenna (@puffnfresh)
 * Ruslan Simchuk (@SimaDovakin)
+* Brandon Barker (@bbarker)

unison-syntax/test/Main.hs

@@ -1,9 +1,25 @@
 module Main (main) where
 
 import EasyTest
+import System.Environment (getArgs)
+import System.IO
 import System.IO.CodePage (withCP65001)
 import Unison.Test.Doc qualified as Doc
 import Unison.Test.Unison qualified as Unison
 
+test :: Test ()
+test =
+  tests
+    [ Doc.test,
+      Unison.test
+    ]
+
 main :: IO ()
-main = withCP65001 . run $ tests [Unison.test, Doc.test]
+main = withCP65001 do
+  args <- getArgs
+  mapM_ (`hSetEncoding` utf8) [stdout, stdin, stderr]
+  case args of
+    [] -> runOnly "" test
+    [prefix] -> runOnly prefix test
+    [seed, prefix] -> rerunOnly (read seed) prefix test
+    _ -> error "expected no args, a prefix, or a seed and a prefix"

unison-syntax/test/Unison/Test/Doc.hs

@@ -15,7 +15,7 @@ import Unison.Util.Recursion
 
 test :: Test ()
 test =
-  scope "Doc parser" . tests $
+  scope "DocParser" . tests $
     [ t "# Hello" [Doc.Section (Doc.Paragraph $ docWord "Hello" :| []) []],
       t
         ( unlines