diff options
Diffstat (limited to 'tests/SlackBuilder/InfoSpec.hs')
| -rw-r--r-- | tests/SlackBuilder/InfoSpec.hs | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/tests/SlackBuilder/InfoSpec.hs b/tests/SlackBuilder/InfoSpec.hs new file mode 100644 index 0000000..28167b5 --- /dev/null +++ b/tests/SlackBuilder/InfoSpec.hs @@ -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 |