stackage/test/Stackage2/BuildPlanSpec.hs
2014-12-05 11:57:01 +02:00

16 lines
385 B
Haskell

{-# LANGUAGE OverloadedStrings, NoImplicitPrelude #-}
module Stackage2.BuildPlanSpec (spec) where
import Stackage2.BuildPlan
import Stackage2.Prelude
import Test.Hspec
import qualified Data.Yaml as Y
import Control.Exception (evaluate)
spec :: Spec
spec = it "works" $ do
bp <- newBuildPlan
let bs = Y.encode bp
mbp' = Y.decode bs
mbp' `shouldBe` Just (() <$ bp)