mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 15:28:29 +01:00
21 lines
736 B
Haskell
21 lines
736 B
Haskell
{-# LANGUAGE OverloadedStrings, NoImplicitPrelude #-}
|
|
module Stackage2.PackageIndexSpec (spec) where
|
|
|
|
import Stackage2.PackageIndex
|
|
import Stackage2.Prelude
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
it "works" $ (runResourceT $ sourcePackageIndex $$ sinkNull :: IO ())
|
|
it "getLatestDescriptions gives reasonable results" $ do
|
|
let f x y = (display x, display y) `member` asSet (setFromList
|
|
[ (asText "base", asText "4.5.0.0")
|
|
, ("does-not-exist", "9999999999999999999")
|
|
])
|
|
m <- getLatestDescriptions f
|
|
length m `shouldBe` 1
|
|
p <- simpleParse $ asText "base"
|
|
v <- simpleParse $ asText "4.5.0.0"
|
|
(fst <$> m) `shouldBe` singletonMap p v
|