git.iko.soy/stackage
on master help sign in
Slightly easier to digest test output
d3cbcd9Michael Snoyman
test/Stackage/BuildPlanSpec.hs+3−2
compare with master
unifiedsplit
@@ -24,9 +24,10 @@ spec = it "works" $ do
24 (name, lookup name (bpPackages bp')) `shouldBe`
24 (name, lookup name (bpPackages bp')) `shouldBe`
25 (name, lookup name (bpPackages bp))
25 (name, lookup name (bpPackages bp))
26
26
27− bp' `shouldBe` bp
27+ bpGithubUsers bp' `shouldBe` bpGithubUsers bp
28+ when (bp' /= bp) $ error "bp' /= bp"
28 bp2 <- updateBuildPlan bp
29 bp2 <- updateBuildPlan bp
29− dropVersionRanges bp2 `shouldBe` dropVersionRanges bp
30+ when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
30 where
31 where
31 dropVersionRanges bp =
32 dropVersionRanges bp =
32 bp { bpPackages = map go $ bpPackages bp }
33 bp { bpPackages = map go $ bpPackages bp }