Closed dpwiz closed 2 years ago
main :: IO () main = do testTree <- collectTests "before running" defaultMain $ testTree "Combine with static" [ testTree , testCase "this works" $ 'a' @?= 'a' ] collectTests :: String -> IO TestTree collectTests label = do cases <- readFile "dynamic.txt" pure $ askOption \(Verbose v) -> testGroup label $ interpret v cases
Jup, I guess this is technically true. PR welcome.