hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test test

Browse Source
This commit is contained in:
Lei Zhu 2023-07-23 15:19:13 +08:00
parent aafb77df7c
commit fb2e3f2740
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/optparse-test/OtherCommandTest.hs
View File

@ -20,6 +20,9 @@ otherCommandTests = testGroup "other command"
, testCase "nuke" $ do , testCase "nuke" $ do
res <- parseWith ["nuke"] res <- parseWith ["nuke"]
liftIO $ assertBool "nuke parse failed" (isNuke res) liftIO $ assertBool "nuke parse failed" (isNuke res)
, testCase "test ghc" $ do
res <- parseWith ["test", "ghc"]
liftIO $ assertBool "test parse failed" (isTest res)
] ]
isDInfo :: Command -> Bool isDInfo :: Command -> Bool
@ -29,3 +32,7 @@ isDInfo _ = False
isNuke :: Command -> Bool isNuke :: Command -> Bool
isNuke Nuke = True isNuke Nuke = True
isNuke _ = False isNuke _ = False
isTest :: Command -> Bool
isTest (Test _) = True
isTest _ = False