Fix remaining tests and update changelog

haskell · Aug 13, 2018 · d0d3415 · d0d3415
1 parent 9d1b8b4
commit d0d3415
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 12 deletions.
diff --git a/cabal-install/Distribution/Client/CmdRepl.hs b/cabal-install/Distribution/Client/CmdRepl.hs
@@ -175,7 +175,7 @@ replCommand = Client.installCommand {
         ++ "to the default component (or no component if there is no project present)\n"
 
      ++ cmdCommonHelpTextNewBuildBeta,
-  commandDefaultFlags = (configFlags,configExFlags,installFlags,haddockFlags,testFlags,defaultEnvFlags),
+  commandDefaultFlags = (configFlags,configExFlags,installFlags,haddockFlags,testFlags,[],defaultEnvFlags),
   commandOptions = \showOrParseArgs ->
         map liftOriginal (commandOptions Client.installCommand showOrParseArgs)
         ++ map liftReplOpts (replOptions showOrParseArgs)
@@ -192,7 +192,7 @@ replCommand = Client.installCommand {
     updateOriginal (a,b,c,d,e) (_,_,_,_,_,f,g) = (a,b,c,d,e,f,g)
 
     projectReplOpts  (_,_,_,_,_,f,_) = f
-    updateReplOpts e (a,b,c,d,e,_,g) = (a,b,c,d,e,f,g)
+    updateReplOpts f (a,b,c,d,e,_,g) = (a,b,c,d,e,f,g)
 
     projectEnvOpts  (_,_,_,_,_,_,g) = g
     updateEnvOpts g (a,b,c,d,e,f,_) = (a,b,c,d,e,f,g)

diff --git a/cabal-install/Distribution/Client/CmdRun.hs b/cabal-install/Distribution/Client/CmdRun.hs
@@ -108,12 +108,8 @@ import System.Directory
 import System.FilePath
          ( (</>) )
 
-<<<<<<< HEAD
-runCommand :: CommandUI (ConfigFlags, ConfigExFlags, InstallFlags, HaddockFlags)
-=======
 
 runCommand :: CommandUI (ConfigFlags, ConfigExFlags, InstallFlags, HaddockFlags, TestFlags)
->>>>>>> Add 'TestFlags' to 'installCommand'
 runCommand = Client.installCommand {
   commandName         = "new-run",
   commandSynopsis     = "Run an executable.",

diff --git a/cabal-install/Distribution/Client/ProjectConfig/Legacy.hs b/cabal-install/Distribution/Client/ProjectConfig/Legacy.hs
@@ -1046,11 +1046,15 @@ legacyPackageConfigFieldDescrs =
       legacyTestFlags
       (\flags conf -> conf { legacyTestFlags = flags })
   . mapFieldNames
-      ("test-"++)
-  . filterFields
-      [ "log", "machine-log", "show-details", "keep-tix-files"
-      , "test-options", "test-option"
+      prefixTest
+  . addFields
+      [ newLineListField "test-options"
+          (showTokenQ . fromPathTemplate) (fmap toPathTemplate parseTokenQ)
+          testOptions
+          (\v conf -> conf { testOptions = v })
       ]
+  . filterFields
+      [ "log", "machine-log", "show-details", "keep-tix-files" ]
   . commandOptionsToFields
   ) (testOptions' ParseArgs)
 
@@ -1117,6 +1121,9 @@ legacyPackageConfigFieldDescrs =
              caseWarning = PWarning $
                "The '" ++ name ++ "' field is case sensitive, use 'True' or 'False'.")
 
+    prefixTest name | "test-" `isPrefixOf` name = name
+                    | otherwise = "test-" ++ name
+
 
 legacyPackageConfigSectionDescrs :: [SectionDescr LegacyProjectConfig]
 legacyPackageConfigSectionDescrs =

diff --git a/cabal-install/Distribution/Client/Setup.hs b/cabal-install/Distribution/Client/Setup.hs
@@ -1869,7 +1869,7 @@ testOptions showOrParseArgs
     | opt <- commandOptions Cabal.testCommand showOrParseArgs
     , let name = optionName opt
     , name `elem` ["log", "machine-log", "show-details", "keep-tix-files"
-                  , "test-options", "test-option" ]
+                  ,"test-options", "test-option"]
     ]
   where
     prefixTest name | "test-" `isPrefixOf` name = name

diff --git a/cabal-install/changelog b/cabal-install/changelog
@@ -2,6 +2,7 @@
 
 2.6.0.0 (current development version)
 	* New solver flag: '--reject-unconstrained-dependencies'. (#2568)
+	* Ported old-style test options to the new-style commands (#5455).
 
 2.4.0.0
 	* 'new-run' now allows the user to run scripts that use a special block

diff --git a/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs b/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs
@@ -562,7 +562,7 @@ instance Arbitrary PackageConfig where
         <*> arbitrary
         <*> arbitrary
         <*> arbitrary
-        <*> arbitrary
+        <*> shortListOf 5 arbitrary
       where
         arbitraryProgramName :: Gen String
         arbitraryProgramName =