Add module with an info file parser
This commit is contained in:
139
tests/SlackBuilder/InfoSpec.hs
Normal file
139
tests/SlackBuilder/InfoSpec.hs
Normal file
@ -0,0 +1,139 @@
|
||||
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 = "PKGNAM=\"pkgnam\"\n\
|
||||
\VERSION=\"1.2.3\"\n\
|
||||
\HOMEPAGE=\"homepage\"\n\
|
||||
\DOWNLOAD=\"\"\n\
|
||||
\MD5SUM=\"\"\n"
|
||||
|
||||
infoDownload1 :: ByteString
|
||||
infoDownload1 = "PKGNAM=\"pkgnam\"\n\
|
||||
\VERSION=\"1.2.3\"\n\
|
||||
\HOMEPAGE=\"homepage\"\n\
|
||||
\DOWNLOAD=\"https://dlackware.com/download.tar.gz\"\n\
|
||||
\MD5SUM=\"0102030405060708090a0b0c0d0e0f10\"\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" [] []
|
||||
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'
|
||||
expected = "PKGNAM=\"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"
|
||||
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
|
||||
in generate given `shouldBe` Text.decodeUtf8 infoDownload1
|
||||
|
||||
describe "updateDownloadVersion" $ do
|
||||
it "replaces the version" $
|
||||
let downloads' = maybeToList
|
||||
$ mkURI "https://dlackware.com/download-1.2.3.tar.gz"
|
||||
testPackage = PackageInfo
|
||||
"pkgnam" "1.2.3" "homepage" downloads' checksumSample
|
||||
expected = maybeToList
|
||||
$ mkURI "https://dlackware.com/download-2.3.4.tar.gz"
|
||||
actual = updateDownloadVersion testPackage "2.3.4" Nothing
|
||||
in actual `shouldBe` expected
|
||||
|
||||
it "updates the major version" $
|
||||
let downloads' = maybeToList
|
||||
$ mkURI "https://dlackware.com/1.2/download.tar.gz"
|
||||
testPackage = PackageInfo
|
||||
"pkgnam" "1.2.3" "homepage" downloads' checksumSample
|
||||
expected = maybeToList
|
||||
$ mkURI "https://dlackware.com/2.3/download.tar.gz"
|
||||
actual = updateDownloadVersion testPackage "2.3.4" Nothing
|
||||
in actual `shouldBe` expected
|
||||
|
||||
it "updates gnome version" $
|
||||
let downloads' = maybeToList
|
||||
$ mkURI "https://download.gnome.org/core/3.36/3.36.0/sources/gnome-calendar-3.36.0.tar.xz"
|
||||
testPackage = PackageInfo
|
||||
"gnome-calendar" "3.36.0" "https://wiki.gnome.org/Core/Calendar" downloads' checksumSample
|
||||
expected = maybeToList
|
||||
$ mkURI "https://download.gnome.org/core/3.36/3.36.4/sources/gnome-calendar-3.36.2.tar.xz"
|
||||
actual = updateDownloadVersion testPackage "3.36.2" $ Just "3.36.4"
|
||||
in actual `shouldBe` expected
|
||||
|
||||
it "updates versions without a patch number" $
|
||||
let downloads' = maybeToList
|
||||
$ mkURI "https://dlackware.com/gnome-contacts-3.36.tar.xz"
|
||||
testPackage = PackageInfo
|
||||
"gnome-contacts" "3.36" "homepage" downloads' checksumSample
|
||||
expected = maybeToList
|
||||
$ mkURI "https://dlackware.com/gnome-contacts-3.36.2.tar.xz"
|
||||
actual = updateDownloadVersion testPackage "3.36.2" Nothing
|
||||
in actual `shouldBe` expected
|
||||
|
||||
describe "update" $
|
||||
it "replaces the version" $
|
||||
let downloads' = maybeToList
|
||||
$ mkURI "https://dlackware.com/1.2/download.tar.gz"
|
||||
testPackage = PackageInfo
|
||||
"pkgnam" "1.2.3" "homepage" downloads' checksumSample
|
||||
expected = PackageInfo
|
||||
"pkgnam" "2.3.4" "homepage" downloads' checksumSample
|
||||
given = update testPackage "2.3.4" downloads' checksumSample
|
||||
in given `shouldBe` expected
|
||||
Reference in New Issue
Block a user