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

nuke test

Browse Source
This commit is contained in:
Lei Zhu 2023-07-22 17:20:42 +08:00
parent 38db038953
commit 16c7ecabe2
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

@ -17,8 +17,15 @@ otherCommandTests = testGroup "other command"
, testCase "tool-requirements -r" $ do , testCase "tool-requirements -r" $ do
ToolRequirements opt <- parseWith ["tool-requirements", "--raw-format"] ToolRequirements opt <- parseWith ["tool-requirements", "--raw-format"]
liftIO $ tlrRaw opt @?= True liftIO $ tlrRaw opt @?= True
, testCase "nuke" $ do
res <- parseWith ["nuke"]
liftIO $ assertBool "nuke parse failed" (isNuke res)
] ]
isDInfo :: Command -> Bool isDInfo :: Command -> Bool
isDInfo DInfo = True isDInfo DInfo = True
isDInfo _ = False isDInfo _ = False
isNuke :: Command -> Bool
isNuke Nuke = True
isNuke _ = False