diff options
Diffstat (limited to 'test/SlackBuilder/InfoSpec.hs')
| -rw-r--r-- | test/SlackBuilder/InfoSpec.hs | 150 |
1 files changed, 150 insertions, 0 deletions
diff --git a/test/SlackBuilder/InfoSpec.hs b/test/SlackBuilder/InfoSpec.hs new file mode 100644 index 0000000..769a45e --- /dev/null +++ b/test/SlackBuilder/InfoSpec.hs @@ -0,0 +1,150 @@ +{- 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) . fmap show . checksums + in parseInfoFile' infoDownload1 `parseSatisfies` condition + + it "accepts an empty downloads list" $ + parseInfoFile' `shouldSucceedOn` infoDownload0 + + it "parses a package name with a dot" $ + let given = + "PRGNAM=\"pkgnam.yaml\"\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" + in parseInfoFile' `shouldSucceedOn` given + + it "parses to downloads in a single line" $ + let given = + "PRGNAM=\"pkgnam.yaml\"\n\ + \VERSION=\"1.2.3\"\n\ + \HOMEPAGE=\"homepage\"\n\ + \DOWNLOAD=\"https://dlackware.com/download1.tar.gz https://dlackware.com/download2.tar.gz\"\n\ + \MD5SUM=\"0102030405060708090a0b0c0d0e0f10 0102030405060708090a0b0c0d0e0f11\"\n\ + \DOWNLOAD_x86_64=\"\"\n\ + \MD5SUM_x86_64=\"\"\n\ + \REQUIRES=\"\"\n\ + \MAINTAINER=\"Z\"\n\ + \EMAIL=\"test@example.com\"\n" + in parseInfoFile' `shouldSucceedOn` given + + it "parses downloads continuing on the next line" $ + let given = + "PRGNAM=\"pkgnam.yaml\"\n\ + \VERSION=\"1.2.3\"\n\ + \HOMEPAGE=\"homepage\"\n\ + \DOWNLOAD=\"https://dlackware.com/download1.tar.gz \\\n\ + \ https://dlackware.com/download2.tar.gz\"\n\ + \MD5SUM=\"0102030405060708090a0b0c0d0e0f10 \\\n\ + \ 0102030405060708090a0b0c0d0e0f11\"\n\ + \DOWNLOAD_x86_64=\"\"\n\ + \MD5SUM_x86_64=\"\"\n\ + \REQUIRES=\"\"\n\ + \MAINTAINER=\"Z\"\n\ + \EMAIL=\"test@example.com\"\n" + in parseInfoFile' `shouldSucceedOn` given + + 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 |