Common.hs

module Test.GitHUD.Git.Common (
  gitCommonTests
  ) where

import Test.Tasty
import Test.Tasty.HUnit

import GitHUD.Git.Common

gitCommonTests :: TestTree
gitCommonTests = testGroup "Git Common Test"
  [ testCase "Getting the config key for the remote of a given local branch" $
      gitRemoteTrackingConfigKey "master" @?= "branch.master.remote"

    , testCase "Getting the config key for the remote tracking branch of a local branch" $
      gitRemoteBranchConfigKey "master" @?= "branch.master.merge"

    , testCase "Getting a commit span between 2 commits" $
      mergeBaseDiffFromTo "b2d35" "ef25d" @?= "b2d35...ef25d"
  ]