GitSpec.hs

module Hi.GitSpec ( main, spec ) where

import           Hi.Git

import           Test.Hspec

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
    let fullUrl = "git@github.com:fujimura/hi.git"
        shortUrl = "gh:fujimura/hi"
    describe "Hi.Git.expandUrl" $ do
      it "should do nothing with full git url" $ do
        expandUrl fullUrl `shouldBe` fullUrl
      it "should expand `gh:fujimura/hi` to `git@github.com:fujimura/hi.git`" $ do
        expandUrl shortUrl `shouldBe` fullUrl