Re haskell#7670: use cmd 'get' instead of 'unpack'

andreasabel · Oct 7, 2021 · 026f944 · 026f944
1 parent ffa806f
commit 026f944
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/cabal-testsuite/PackageTests/Unpack/T7248/cabal.out b/cabal-testsuite/PackageTests/Unpack/T7248/cabal.out
@@ -1,4 +1,4 @@
-# cabal unpack
+# cabal get
 Warning: <ROOT>/cabal.config: Unrecognized stanza on line 3
 Warning: The package list for 'x.y.z' does not exist. Run 'cabal update' to download it.
 Error: cabal: There is no package named 'a-b-s-e-n-t'. 

diff --git a/cabal-testsuite/PackageTests/Unpack/T7248/cabal.test.hs b/cabal-testsuite/PackageTests/Unpack/T7248/cabal.test.hs
@@ -11,5 +11,5 @@ main = cabalTest $
   fails $
   cabalG
     [ "--config-file", "cabal.config" ]
-    "unpack"
+    "get"
     [ "a-b-s-e-n-t" ]
diff --git a/cabal-testsuite/src/Test/Cabal/Prelude.hs b/cabal-testsuite/src/Test/Cabal/Prelude.hs
@@ -276,7 +276,15 @@ cabalGArgs global_args cmd args input = do
     -- overwritable
     when (cmd == "v1-freeze") requireHasSourceCopy
     let extra_args
-          | cmd `elem` ["v1-update", "outdated", "user-config", "man", "v1-freeze", "check", "unpack"]
+          | cmd `elem`
+              [ "v1-update"
+              , "outdated"
+              , "user-config"
+              , "man"
+              , "v1-freeze"
+              , "check"
+              , "get", "unpack"
+              ]
           = [ ]
 
           -- new-build commands are affected by testCabalProjectFile