From fb2e3f27406f72e3ea89a163cb7db429d77706fa Mon Sep 17 00:00:00 2001
From: Lei Zhu <julytreee@gmail.com>
Date: Sun, 23 Jul 2023 15:19:13 +0800
Subject: [PATCH] test 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 2d82698..1a87488 100644
--- a/test/optparse-test/OtherCommandTest.hs
+++ b/test/optparse-test/OtherCommandTest.hs
@@ -20,6 +20,9 @@ otherCommandTests = testGroup "other command"
   , testCase "nuke" $ do
       res <- parseWith ["nuke"]
       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
@@ -29,3 +32,7 @@ isDInfo _     = False
 isNuke :: Command -> Bool
 isNuke Nuke = True
 isNuke _    = False
+
+isTest :: Command -> Bool
+isTest (Test _) = True
+isTest _        = False