Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
0c124357
Commit
0c124357
authored
Jun 30, 2016
by
Andres Löh
Browse files
Fix tests.
parent
29de7dba
Changes
1
Hide whitespace changes
Inline
Side-by-side
cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs
View file @
0c124357
...
...
@@ -344,6 +344,7 @@ instance Arbitrary ProjectConfigShared where
<*>
arbitrary
<*>
arbitrary
<*>
arbitrary
<*>
arbitrary
<*>
arbitrary
<*>
arbitrary
<*>
arbitrary
where
arbitraryConstraints
::
Gen
[(
UserConstraint
,
ConstraintSource
)]
arbitraryConstraints
=
...
...
@@ -352,18 +353,18 @@ instance Arbitrary ProjectConfigShared where
shrink
(
ProjectConfigShared
x00
x01
x02
x03
x04
x05
x06
x07
x08
x09
x10
x11
x12
x13
)
=
x10
x11
x12
x13
x14
)
=
[
ProjectConfigShared
x00'
(
fmap
getNonEmpty
x01'
)
(
fmap
getNonEmpty
x02'
)
x03'
x04'
x05'
(
postShrink_Constraints
x06'
)
x07'
x08'
x09'
x10'
x11'
x12'
x13'
x10'
x11'
x12'
x13'
x14'
|
((
x00'
,
x01'
,
x02'
,
x03'
,
x04'
),
(
x05'
,
x06'
,
x07'
,
x08'
,
x09'
),
(
x10'
,
x11'
,
x12'
,
x13'
))
(
x10'
,
x11'
,
x12'
,
x13'
,
x14'
))
<-
shrink
((
x00
,
fmap
NonEmpty
x01
,
fmap
NonEmpty
x02
,
x03
,
x04
),
(
x05
,
preShrink_Constraints
x06
,
x07
,
x08
,
x09
),
(
x10
,
x11
,
x12
,
x13
))
(
x10
,
x11
,
x12
,
x13
,
x14
))
]
where
preShrink_Constraints
=
map
fst
...
...
@@ -579,6 +580,9 @@ instance Arbitrary PreSolver where
instance
Arbitrary
ReorderGoals
where
arbitrary
=
ReorderGoals
<$>
arbitrary
instance
Arbitrary
CountConflicts
where
arbitrary
=
CountConflicts
<$>
arbitrary
instance
Arbitrary
StrongFlags
where
arbitrary
=
StrongFlags
<$>
arbitrary
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment