Add skipping installed tests

haskell · Jan 13, 2024 · a474965 · a474965
1 parent b15a515
commit a474965
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/cabal-install/tests/UnitTests/Distribution/Solver/Modular/Solver.hs b/cabal-install/tests/UnitTests/Distribution/Solver/Modular/Solver.hs
@@ -924,6 +924,16 @@ tests =
                 skipping = "skipping: A-1.0.0"
             in mkTest db "show skipping singleton" ["B"] $
                   solverFailure (\msg -> rejecting `isInfixOf` msg && skipping `isInfixOf` msg)
+        , runTest $
+            let db =
+                  [ Left $ exInst "A" 1 "A-1.0.0" []
+                  , Left $ exInst "A" 2 "A-2.0.0" []
+                  , Right $ exAv "B" 1 [ExFix "A" 3]
+                  ]
+                rejecting = "rejecting: A-2.0.0"
+                skipping = "skipping: A-1.0.0"
+            in mkTest db "show skipping singleton, installed" ["B"] $
+                  solverFailure (\msg -> rejecting `isInfixOf` msg && skipping `isInfixOf` msg)
         , runTest $
             let db =
                   [ Right $ exAv "A" 1 []
@@ -935,6 +945,17 @@ tests =
                 skipping = "skipping: A; 2.0.0, 1.0.0"
             in mkTest db "show skipping versions list" ["B"] $
                   solverFailure (\msg -> rejecting `isInfixOf` msg && skipping `isInfixOf` msg)
+        , runTest $
+            let db =
+                  [ Left $ exInst "A" 1 "A-1.0.0" []
+                  , Left $ exInst "A" 2 "A-2.0.0" []
+                  , Left $ exInst "A" 3 "A-3.0.0" []
+                  , Right $ exAv "B" 1 [ExFix "A" 4]
+                  ]
+                rejecting = "rejecting: A-3.0.0"
+                skipping = "skipping: A-2.0.0/installed-2.0.0, A-1.0.0/installed-1.0.0"
+            in mkTest db "show skipping versions list, installed" ["B"] $
+                  solverFailure (\msg -> rejecting `isInfixOf` msg && skipping `isInfixOf` msg)
         ]
      ]
   ]