haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-11 23:08:30 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Slightly easier to digest test output

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-15 08:22:42 +02:00
parent 4e06135f38
commit d3cbcd91cc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Stackage/BuildPlanSpec.hs
View File

@ -24,9 +24,10 @@ spec = it "works" $ do
(name, lookup name (bpPackages bp')) `shouldBe`
(name, lookup name (bpPackages bp))
bp' `shouldBe` bp
bpGithubUsers bp' `shouldBe` bpGithubUsers bp
when (bp' /= bp) $ error "bp' /= bp"
bp2 <- updateBuildPlan bp
dropVersionRanges bp2 `shouldBe` dropVersionRanges bp
when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
where
dropVersionRanges bp =
bp { bpPackages = map go $ bpPackages bp }