module Portage.MetadataSpec (spec) where
import Test.Hspec
import Test.Hspec.QuickCheck
import qualified Data.Text as T
import qualified Data.Map.Strict as Map
import Portage.Metadata
spec :: Spec
spec = do
describe "pureMetadataFromFile" $ do
it "returns Nothing from an empty Text" $ do
pureMetadataFromFile T.empty `shouldBe` Nothing
prop "equals makeMinimalMetadata with no USE flags, no matter the description" $ do
\desc -> pureMetadataFromFile (makeDefaultMetadata desc Map.empty) ==
Just makeMinimalMetadata
prop "equals makeMinimalMetadata plus the supplied USE flags, no matter the description" $
do let flags = Map.singleton "name" "description"
in \desc -> pureMetadataFromFile (makeDefaultMetadata desc flags)
== Just (makeMinimalMetadata { metadataUseFlags = flags } )
describe "prettyPrintFlags" $ do
prop "should correctly format a single USE flag name with its description" $ do
\name description -> prettyPrintFlags (Map.singleton name description) ==
["\t\t" ++ description ++ ""]
prop "should have a length equal to the number of USE flags" $ do
\flags -> length (prettyPrintFlags flags) == Map.size flags
describe "makeDefaultMetadata" $ do
context "when writing a minimal metadata.xml" $ do
it "should have a certain number of lines" $ do
-- This is the number of lines in a skeleton metadata.xml.
-- If it does not equal this number, the formatting may be wrong.
length (T.lines (makeDefaultMetadata "" Map.empty)) `shouldBe` 13
it "should have a certain format" $ do
let desc = "foo"
correctMetadata = T.pack $ unlines
[ ""
, ""
, ""
, "\t"
, "\t\thaskell@gentoo.org"
, "\t\tGentoo Haskell"
, "\t"
, "\t"
, "\t"
, "\t\t" ++ desc
, "\t"
, ""
]
in makeDefaultMetadata desc Map.empty `shouldBe` correctMetadata
context "when writing a metadata.xml with USE flags" $ do
it "should have a certain number of lines relative to the number of USE flags" $ do
let flags = Map.singleton "name" "description"
in length (T.lines (makeDefaultMetadata "" flags))
`shouldBe` 13 + (Map.size flags)
it "should have a certain format" $ do
let desc = "foo"
flags = Map.singleton "name" "description"
correctMetadata = T.pack $ unlines
[ ""
, ""
, ""
, "\t"
, "\t\thaskell@gentoo.org"
, "\t\tGentoo Haskell"
, "\t"
, "\t"
, "\t"
, "\t\t" ++ desc
, "\t"
, ""
]
in makeDefaultMetadata desc flags `shouldBe` correctMetadata