107 lines
4.2 KiB
Haskell
107 lines
4.2 KiB
Haskell
{- This Source Code Form is subject to the terms of the Mozilla Public License,
|
|
v. 2.0. If a copy of the MPL was not distributed with this file, You can
|
|
obtain one at https://mozilla.org/MPL/2.0/. -}
|
|
|
|
module SlackBuilder.InfoSpec
|
|
( spec
|
|
) where
|
|
|
|
import Crypto.Hash (Digest, MD5, digestFromByteString)
|
|
import qualified Data.ByteString as ByteString
|
|
import Data.ByteString.Char8 (ByteString)
|
|
import Data.Maybe (maybeToList)
|
|
import qualified Data.Text.Encoding as Text
|
|
import Data.Void (Void)
|
|
import SlackBuilder.Info
|
|
import Test.Hspec (Spec, describe, it, shouldBe)
|
|
import Test.Hspec.Megaparsec (parseSatisfies, shouldSucceedOn)
|
|
import Text.Megaparsec (parse)
|
|
import Text.Megaparsec.Error (ParseErrorBundle)
|
|
import Text.URI (mkURI)
|
|
|
|
parseInfoFile'
|
|
:: ByteString
|
|
-> Either (ParseErrorBundle ByteString Void) PackageInfo
|
|
parseInfoFile' = parse parseInfoFile ""
|
|
|
|
infoDownload0 :: ByteString
|
|
infoDownload0 = "PRGNAM=\"pkgnam\"\n\
|
|
\VERSION=\"1.2.3\"\n\
|
|
\HOMEPAGE=\"homepage\"\n\
|
|
\DOWNLOAD=\"\"\n\
|
|
\MD5SUM=\"\"\n\
|
|
\DOWNLOAD_x86_64=\"\"\n\
|
|
\MD5SUM_x86_64=\"\"\n\
|
|
\REQUIRES=\"\"\n\
|
|
\MAINTAINER=\"Z\"\n\
|
|
\EMAIL=\"test@example.com\"\n"
|
|
|
|
infoDownload1 :: ByteString
|
|
infoDownload1 = "PRGNAM=\"pkgnam\"\n\
|
|
\VERSION=\"1.2.3\"\n\
|
|
\HOMEPAGE=\"homepage\"\n\
|
|
\DOWNLOAD=\"https://dlackware.com/download.tar.gz\"\n\
|
|
\MD5SUM=\"0102030405060708090a0b0c0d0e0f10\"\n\
|
|
\DOWNLOAD_x86_64=\"\"\n\
|
|
\MD5SUM_x86_64=\"\"\n\
|
|
\REQUIRES=\"\"\n\
|
|
\MAINTAINER=\"Z\"\n\
|
|
\EMAIL=\"test@example.com\"\n"
|
|
|
|
maybeToDoubleList :: forall a. Maybe a -> [a]
|
|
maybeToDoubleList xs = [y | x <- maybeToList xs, y <- [x, x]]
|
|
|
|
checksumSample :: [Digest MD5]
|
|
checksumSample = maybeToList $ digestFromByteString (ByteString.pack [1 .. 16])
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "parseInfoFile" $ do
|
|
it "returns package on a valid input" $
|
|
parseInfoFile' `shouldSucceedOn` infoDownload1
|
|
|
|
it "returns an array with one element if one download is given" $
|
|
let condition = (== 1) . length . checksums
|
|
in parseInfoFile' infoDownload1 `parseSatisfies` condition
|
|
|
|
it "translates checksum characters into the binary format" $
|
|
let expected = "0102030405060708090a0b0c0d0e0f10"
|
|
condition = (== expected) . show . head . checksums
|
|
in parseInfoFile' infoDownload1 `parseSatisfies` condition
|
|
|
|
it "accepts an empty downloads list" $
|
|
parseInfoFile' `shouldSucceedOn` infoDownload0
|
|
|
|
describe "generate" $ do
|
|
it "generates an .info file without downloads" $
|
|
let given = PackageInfo "pkgnam" "1.2.3" "homepage" [] [] [] [] [] "Z" "test@example.com"
|
|
in generate given `shouldBe` Text.decodeUtf8 infoDownload0
|
|
|
|
it "splits multiple downloads into multiple lines" $
|
|
let downloads' = maybeToDoubleList
|
|
$ mkURI "https://dlackware.com/download.tar.gz"
|
|
checksums' = maybeToDoubleList
|
|
$ digestFromByteString (ByteString.pack [1.. 16])
|
|
given = PackageInfo
|
|
"pkgnam" "1.2.3" "homepage" downloads' checksums' [] [] [] "Z" "test@example.com"
|
|
expected = "PRGNAM=\"pkgnam\"\n\
|
|
\VERSION=\"1.2.3\"\n\
|
|
\HOMEPAGE=\"homepage\"\n\
|
|
\DOWNLOAD=\"https://dlackware.com/download.tar.gz \\\n\
|
|
\ https://dlackware.com/download.tar.gz\"\n\
|
|
\MD5SUM=\"0102030405060708090a0b0c0d0e0f10 \\\n\
|
|
\ 0102030405060708090a0b0c0d0e0f10\"\n\
|
|
\DOWNLOAD_x86_64=\"\"\n\
|
|
\MD5SUM_x86_64=\"\"\n\
|
|
\REQUIRES=\"\"\n\
|
|
\MAINTAINER=\"Z\"\n\
|
|
\EMAIL=\"test@example.com\"\n"
|
|
in generate given `shouldBe` expected
|
|
|
|
it "prints the checksum as a sequence of hexadecimal numbers" $
|
|
let downloads' = maybeToList
|
|
$ mkURI "https://dlackware.com/download.tar.gz"
|
|
given = PackageInfo
|
|
"pkgnam" "1.2.3" "homepage" downloads' checksumSample [] [] [] "Z" "test@example.com"
|
|
in generate given `shouldBe` Text.decodeUtf8 infoDownload1
|