Re #7670: WIP: test case for #7248

cabal-testsuite/PackageTests/Get/T7248/cabal.config

@@ -0,0 +1,4 @@
+-- This config file contains a bogus repository by intention.
+
+repository x.y.z
+  url: http://x.y.z/

cabal-testsuite/PackageTests/Get/T7248/cabal.out

@@ -0,0 +1,5 @@
+# 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'. 
+You may need to run 'cabal update' to get the latest list of available packages.

cabal-testsuite/PackageTests/Get/T7248/cabal.test.hs

@@ -0,0 +1,15 @@
+-- 2021-10-06, issue #7248
+--
+-- Purpose of this test:
+-- Make sure that ordinary user communication does not contain 'Show'ed internal structures.
+--
+-- This is a golden value test that reports the produced error message.
+-- Needs to be checked manually whether it meets expectations.
+
+import Test.Cabal.Prelude
+main = cabalTest $
+  fails $
+  cabalG
+    [ "--config-file", "cabal.config" ]
+    "get"
+    [ "a-b-s-e-n-t" ]

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"]
+          | cmd `elem`
+              [ "v1-update"
+              , "outdated"
+              , "user-config"
+              , "man"
+              , "v1-freeze"
+              , "check"
+              , "get", "unpack"
+              ]
           = [ ]
 
           -- new-build commands are affected by testCabalProjectFile