@@ -26,44 +26,6 @@ import UnitTests.Distribution.Solver.Modular.DSL
26
26
import UnitTests.Distribution.Solver.Modular.DSL.TestCaseUtils
27
27
28
28
tests :: [TF. TestTree ]
29
- <<<<<<< HEAD
30
- tests = [
31
- testGroup " Simple dependencies" [
32
- runTest $ mkTest db1 " alreadyInstalled" [" A" ] (solverSuccess [] )
33
- , runTest $ mkTest db1 " installLatest" [" B" ] (solverSuccess [(" B" , 2 )])
34
- , runTest $ preferOldest
35
- $ mkTest db1 " installOldest" [" B" ] (solverSuccess [(" B" , 1 )])
36
- , runTest $ mkTest db1 " simpleDep1" [" C" ] (solverSuccess [(" B" , 1 ), (" C" , 1 )])
37
- , runTest $ mkTest db1 " simpleDep2" [" D" ] (solverSuccess [(" B" , 2 ), (" D" , 1 )])
38
- , runTest $ mkTest db1 " failTwoVersions" [" C" , " D" ] anySolverFailure
39
- , runTest $ indep $ mkTest db1 " indepTwoVersions" [" C" , " D" ] (solverSuccess [(" B" , 1 ), (" B" , 2 ), (" C" , 1 ), (" D" , 1 )])
40
- , runTest $ indep $ mkTest db1 " aliasWhenPossible1" [" C" , " E" ] (solverSuccess [(" B" , 1 ), (" C" , 1 ), (" E" , 1 )])
41
- , runTest $ indep $ mkTest db1 " aliasWhenPossible2" [" D" , " E" ] (solverSuccess [(" B" , 2 ), (" D" , 1 ), (" E" , 1 )])
42
- , runTest $ indep $ mkTest db2 " aliasWhenPossible3" [" C" , " D" ] (solverSuccess [(" A" , 1 ), (" A" , 2 ), (" B" , 1 ), (" B" , 2 ), (" C" , 1 ), (" D" , 1 )])
43
- , runTest $ mkTest db1 " buildDepAgainstOld" [" F" ] (solverSuccess [(" B" , 1 ), (" E" , 1 ), (" F" , 1 )])
44
- , runTest $ mkTest db1 " buildDepAgainstNew" [" G" ] (solverSuccess [(" B" , 2 ), (" E" , 1 ), (" G" , 1 )])
45
- , runTest $ indep $ mkTest db1 " multipleInstances" [" F" , " G" ] anySolverFailure
46
- , runTest $ mkTest db21 " unknownPackage1" [" A" ] (solverSuccess [(" A" , 1 ), (" B" , 1 )])
47
- , runTest $ mkTest db22 " unknownPackage2" [" A" ] (solverFailure (isInfixOf " unknown package: C" ))
48
- , runTest $ mkTest db23 " unknownPackage3" [" A" ] (solverFailure (isInfixOf " unknown package: B" ))
49
- , runTest $ mkTest [] " unknown target" [" A" ] (solverFailure (isInfixOf " unknown package: A" ))
50
- ]
51
- , testGroup " Flagged dependencies" [
52
- runTest $ mkTest db3 " forceFlagOn" [" C" ] (solverSuccess [(" A" , 1 ), (" B" , 1 ), (" C" , 1 )])
53
- , runTest $ mkTest db3 " forceFlagOff" [" D" ] (solverSuccess [(" A" , 2 ), (" B" , 1 ), (" D" , 1 )])
54
- , runTest $ indep $ mkTest db3 " linkFlags1" [" C" , " D" ] anySolverFailure
55
- , runTest $ indep $ mkTest db4 " linkFlags2" [" C" , " D" ] anySolverFailure
56
- , runTest $ indep $ mkTest db18 " linkFlags3" [" A" , " B" ] (solverSuccess [(" A" , 1 ), (" B" , 1 ), (" C" , 1 ), (" D" , 1 ), (" D" , 2 ), (" F" , 1 )])
57
- ]
58
- , testGroup " Lifting dependencies out of conditionals" [
59
- runTest $ commonDependencyLogMessage " common dependency log message"
60
- , runTest $ twoLevelDeepCommonDependencyLogMessage " two level deep common dependency log message"
61
- , runTest $ testBackjumpingWithCommonDependency " backjumping with common dependency"
62
- ]
63
- , testGroup " Manual flags" [
64
- runTest $ mkTest dbManualFlags " Use default value for manual flag" [" pkg" ] $
65
- solverSuccess [(" pkg" , 1 ), (" true-dep" , 1 )]
66
- =======
67
29
tests =
68
30
[ testGroup
69
31
" Simple dependencies"
@@ -891,7 +853,6 @@ tests =
891
853
[ -- See issue #3203. The solver should only choose a version for A once.
892
854
runTest $
893
855
let db = [Right $ exAv " A" 1 [] ]
894
- >>>>>>> 249374 d16 (Fix tests)
895
856
896
857
, let checkFullLog =
897
858
any $ isInfixOf " rejecting: pkg:-flag (manual flag can only be changed explicitly)"
@@ -1960,21 +1921,10 @@ dbBase = [
1960
1921
]
1961
1922
1962
1923
dbNonupgrade :: ExampleDb
1963
- <<<<<<< HEAD
1964
- dbNonupgrade = [
1965
- Left $ exInst " ghc" 1 " ghc-1" []
1966
- , Left $ exInst " ghci" 1 " ghci-1" []
1967
- , Left $ exInst " ghc-boot" 1 " ghc-boot-1" []
1968
- =======
1969
1924
dbNonupgrade =
1970
1925
[ Left $ exInst " ghc" 1 " ghc-1" []
1971
- >>>>>>> 249374 d16 (Fix tests)
1972
1926
, Right $ exAv " ghc" 2 []
1973
- , Right $ exAv " ghci" 2 []
1974
- , Right $ exAv " ghc-boot" 2 []
1975
1927
, Right $ exAv " A" 1 [ExFix " ghc" 2 ]
1976
- , Right $ exAv " B" 1 [ExFix " ghci" 2 ]
1977
- , Right $ exAv " C" 1 [ExFix " ghc-boot" 2 ]
1978
1928
]
1979
1929
1980
1930
db13 :: ExampleDb
0 commit comments