git.iko.soy/stackage
on fbf40bc help sign in
stackage/test/Stackage/BuildPlanSpec.hs
36 lines 1.2 kB history raw
1{-# LANGUAGE OverloadedStrings, NoImplicitPrelude #-}
2module Stackage.BuildPlanSpec (spec) where
4import Stackage.BuildPlan
5import Stackage.Prelude
6import Stackage.BuildConstraints
7import Stackage.UpdateBuildPlan
8import Test.Hspec
9import qualified Data.Yaml as Y
10import Distribution.Version (anyVersion)
11import qualified Data.Map as Map
13spec :: Spec
14spec = it "works" $ do
15 bc <- defaultBuildConstraints (error "manager should not be used")
16 bp <- newBuildPlan bc
17 let bs = Y.encode bp
18 ebp' = Y.decodeEither bs
20 bp' <- either error return ebp'
22 let allPackages = Map.keysSet (bpPackages bp) ++ Map.keysSet (bpPackages bp')
23 forM_ allPackages $ \name ->
24 (name, lookup name (bpPackages bp')) `shouldBe`
25 (name, lookup name (bpPackages bp))
27 bpGithubUsers bp' `shouldBe` bpGithubUsers bp
28 when (bp' /= bp) $ error "bp' /= bp"
29 bp2 <- updateBuildPlan bp
30 when (dropVersionRanges bp2 /= dropVersionRanges bp) $ error "bp2 /= bp"
31 where
32 dropVersionRanges bp =
33 bp { bpPackages = map go $ bpPackages bp }
34 where
35 go pb = pb { ppConstraints = go' $ ppConstraints pb }
36 go' pc = pc { pcVersionRange = anyVersion }