debug-info test

ghcup.cabal

@@ -417,6 +417,8 @@ test-suite ghcup-optparse-test
  main-is: Main.hs
  other-modules:
  SetTest
+ Utils
+ DebugInfoTest
  default-language: Haskell2010
  ghc-options: -Wall
  build-depends: base, ghcup, ghcup-optparse, tasty, tasty-hunit, optparse-applicative, versions, text

test/optparse-test/DebugInfoTest.hs

@@ -0,0 +1,18 @@
+module DebugInfoTest where
+
+import Test.Tasty
+import Test.Tasty.HUnit
+import GHCup.OptParse
+import Utils
+import Control.Monad.IO.Class
+
+debugInfoTests :: TestTree
+debugInfoTests =
+ testGroup "debug-info" $ pure
+ $ testCase "1. debug-info" $ do
+ res <- parseWith ["debug-info"]
+ liftIO $ assertBool "debug-info parse failed" (isDInfo res)
+ where
+ isDInfo :: Command -> Bool
+ isDInfo DInfo = True
+ isDInfo _ = False

test/optparse-test/Main.hs

@@ -1,6 +1,10 @@
 module Main where
 import Test.Tasty
 import qualified SetTest
+import qualified DebugInfoTest
 
 main :: IO ()
-main = defaultMain SetTest.setTests
+main = defaultMain $ testGroup "ghcup"
+ [ SetTest.setTests
+ , DebugInfoTest.debugInfoTests
+ ]

test/optparse-test/SetTest.hs

@@ -5,12 +5,11 @@ module SetTest where
 import GHCup.OptParse as GHCup
 import Test.Tasty
 import Test.Tasty.HUnit
-import Options.Applicative
 import Control.Monad.IO.Class (liftIO)
 import GHCup.Types
 import Data.Versions
 import Data.List.NonEmpty (NonEmpty ((:|)))
-import Data.Bifunctor (second)
+import Utils
 
 setTests :: TestTree
 setTests =
@@ -190,15 +189,3 @@ setParseWith :: [String] -> IO (Either SetCommand SetOptions)
 setParseWith args = do
  Set a <- parseWith args
  pure a
-
-parseWith :: [String] -> IO Command
-parseWith args =
- optCommand <$> handleParseResult
- (execParserPure defaultPrefs (info GHCup.opts fullDesc) args)
-
-padLeft :: Int -> String -> String
-padLeft desiredLength s = padding ++ s
- where padding = replicate (desiredLength - length s) ' '
-
-mapSecond :: (b -> c) -> [(a,b)] -> [(a,c)]
-mapSecond = map . second

test/optparse-test/Utils.hs

@@ -0,0 +1,17 @@
+module Utils where
+
+import GHCup.OptParse as GHCup
+import Options.Applicative
+import Data.Bifunctor
+
+parseWith :: [String] -> IO Command
+parseWith args =
+ optCommand <$> handleParseResult
+ (execParserPure defaultPrefs (info GHCup.opts fullDesc) args)
+
+padLeft :: Int -> String -> String
+padLeft desiredLength s = padding ++ s
+ where padding = replicate (desiredLength - length s) ' '
+
+mapSecond :: (b -> c) -> [(a,b)] -> [(a,c)]
+mapSecond = map . second