From 16c7ecabe2b82cb42180b104f30df51f0efbe5bc Mon Sep 17 00:00:00 2001
From: Lei Zhu <julytreee@gmail.com>
Date: Sat, 22 Jul 2023 17:20:42 +0800
Subject: [PATCH] nuke test

---
 test/optparse-test/OtherCommandTest.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/optparse-test/OtherCommandTest.hs b/test/optparse-test/OtherCommandTest.hs
index 5b1c3af..2d82698 100644
--- a/test/optparse-test/OtherCommandTest.hs
+++ b/test/optparse-test/OtherCommandTest.hs
@@ -17,8 +17,15 @@ otherCommandTests = testGroup "other command"
   , testCase "tool-requirements -r" $ do
       ToolRequirements opt <- parseWith ["tool-requirements", "--raw-format"]
       liftIO $ tlrRaw opt @?= True
+  , testCase "nuke" $ do
+      res <- parseWith ["nuke"]
+      liftIO $ assertBool "nuke parse failed" (isNuke res)
   ]
 
 isDInfo :: Command -> Bool
 isDInfo DInfo = True
 isDInfo _     = False
+
+isNuke :: Command -> Bool
+isNuke Nuke = True
+isNuke _    = False