Parametrize stack wrapper test

haskell · Dec 10, 2021 · 2b9d59f · 2b9d59f
1 parent 85823ef
commit 2b9d59f
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/test/wrapper/Main.hs b/test/wrapper/Main.hs
@@ -11,10 +11,8 @@ main = do
 
 projectGhcVersionTests :: TestTree
 projectGhcVersionTests = testGroup "--project-ghc-version"
-  [ testCase "stack with ghc 8.10.7" $
-      testDir "test/wrapper/testdata/stack-8.10.7" "8.10.7"
-  , testCase "stack with ghc 8.8.4" $
-      testDir "test/wrapper/testdata/stack-8.8.4" "8.8.4"
+  [ stackTest "8.10.7"
+  , stackTest "8.8.4"
   , testCase "cabal with global ghc" $ do
       ghcVer <- trimEnd <$> readProcess "ghc" ["--numeric-version"] ""
       testDir "test/wrapper/testdata/cabal-cur-ver" ghcVer
@@ -24,6 +22,9 @@ projectGhcVersionTests = testGroup "--project-ghc-version"
       testProjectType "test/wrapper/testdata/stack-with-dist-newstyle"
         ("cradleOptsProg = CradleAction: Cabal" `isInfixOf`)
   ]
+  where
+      stackTest ghcVer= testCase ("stack with ghc " ++ ghcVer) $
+        testDir ("test/wrapper/testdata/stack-" ++ ghcVer) ghcVer
 
 testDir :: FilePath -> String -> Assertion
 testDir dir expectedVer =