haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-18 02:08:29 +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')) `shouldBe`
(name, lookup name (bpPackages bp)) (name, lookup name (bpPackages bp))
bp' `shouldBe` bp bpGithubUsers bp' `shouldBe` bpGithubUsers bp
when (bp' /= bp) $ error "bp' /= bp"
bp2 <- updateBuildPlan bp bp2 <- updateBuildPlan bp
dropVersionRanges bp2 `shouldBe` dropVersionRanges bp when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
where where
dropVersionRanges bp = dropVersionRanges bp =
bp { bpPackages = map go $ bpPackages bp } bp { bpPackages = map go $ bpPackages bp }