haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-25 21:51:57 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix test suite

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-22 11:08:52 +02:00
parent cc3338de9e
commit 06d70e4ee4
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
stackage.cabal
View File

@ -1,5 +1,5 @@
name: stackage name: stackage
version: 0.2.1.2 version: 0.2.1.3
synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage. synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage.
description: Please see <http://www.stackage.org/package/stackage> for a description and documentation. description: Please see <http://www.stackage.org/package/stackage> for a description and documentation.
homepage: https://github.com/fpco/stackage homepage: https://github.com/fpco/stackage
@ -87,6 +87,8 @@ test-suite spec
, Cabal , Cabal
, yaml , yaml
, containers , containers
, http-client
, http-client-tls
source-repository head source-repository head
type: git type: git

6
test/Stackage/BuildPlanSpec.hs
View File

@ -9,10 +9,12 @@ import Test.Hspec
import qualified Data.Yaml as Y import qualified Data.Yaml as Y
import Distribution.Version (anyVersion) import Distribution.Version (anyVersion)
import qualified Data.Map as Map import qualified Data.Map as Map
import Network.HTTP.Client (withManager)
import Network.HTTP.Client.TLS (tlsManagerSettings)
spec :: Spec spec :: Spec
spec = it "works" $ do spec = it "works" $ withManager tlsManagerSettings $ \man -> do
bc <- defaultBuildConstraints (error "manager should not be used") bc <- defaultBuildConstraints man
bp <- newBuildPlan bc bp <- newBuildPlan bc
let bs = Y.encode bp let bs = Y.encode bp
ebp' = Y.decodeEither bs ebp' = Y.decodeEither bs