mirror of
https://github.com/nix-community/nixpkgs-update.git
synced 2024-10-05 18:17:07 +03:00
30 lines
988 B
Haskell
30 lines
988 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module UtilsSpec where
|
|
|
|
import Test.Hspec
|
|
import qualified Utils
|
|
|
|
main :: IO ()
|
|
main = hspec spec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
let options = Utils.Options False False "" "" False False False False
|
|
let updateEnv = Utils.UpdateEnv "foobar" "1.0" "1.1" (Just "https://update-site.com") options
|
|
describe "PR title" do
|
|
-- This breaks IRC when it tries to link to newly opened pull requests
|
|
it "should not include a trailing newline" do
|
|
let title = Utils.prTitle updateEnv "python37Packages.foobar"
|
|
title `shouldBe` "python37Packages.foobar: 1.0 -> 1.1"
|
|
|
|
describe "titleVersion" do
|
|
it "should parse prTitle output" do
|
|
let title = Utils.prTitle updateEnv "python37Packages.foobar"
|
|
let version = Utils.titleVersion title
|
|
version `shouldBe` Just "1.1"
|
|
|
|
it "should fail on unexpected commit messages" do
|
|
let version = Utils.titleVersion "not a prTitle-style commit message"
|
|
version `shouldBe` Nothing
|