gc test

2023-07-28 23:26:19 +08:00
parent 2726e83235
commit f1f4d5e836
6 changed files with 79 additions and 2 deletions
--- a/test/optparse-test/RunTest.hs
+++ b/test/optparse-test/RunTest.hs
@@ -0,0 +1,31 @@
+module RunTest where
+
+import Test.Tasty
+import GHCup.OptParse
+import Utils
+
+
+runTests :: TestTree
+runTests = buildTestTree runParseWith ("run", runCheckList)
+
+defaultOptions :: RunOptions
+defaultOptions =
+  RunOptions
+    False
+    False
+    False
+    Nothing
+    Nothing
+    Nothing
+    Nothing
+    Nothing
+    False
+    []
+
+runCheckList :: [(String, RunOptions)]
+runCheckList = []
+
+runParseWith :: [String] -> IO RunOptions
+runParseWith args = do
+  Run a <- parseWith args
+  pure a