@@ -24,9 +24,10 @@ spec = it "works" $ do
2424 (name, lookup name (bpPackages bp')) `shouldBe`
2525 (name, lookup name (bpPackages bp))
2626
27− bp' `shouldBe` bp
27+ bpGithubUsers bp' `shouldBe` bpGithubUsers bp
28+ when (bp' /= bp) $ error "bp' /= bp"
2829 bp2 <- updateBuildPlan bp
29− dropVersionRanges bp2 `shouldBe` dropVersionRanges bp
30+ when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
3031 where
3132 dropVersionRanges bp =
3233 bp { bpPackages = map go $ bpPackages bp }