85 lines
3.8 KiB
Haskell
85 lines
3.8 KiB
Haskell
module GitPullSpec (spec) where
|
|
|
|
import Converge (RepoConfig (..), defaultRepoConfig, gitPull)
|
|
import qualified Data.Text as T
|
|
import System.Directory (createDirectory)
|
|
import System.Exit (ExitCode (..))
|
|
import System.FilePath ((</>))
|
|
import System.IO (writeFile)
|
|
import System.IO.Temp (withSystemTempDirectory)
|
|
import Test.Hspec
|
|
import TestHelper
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "gitPull" $ do
|
|
|
|
it "pulls changes from remote 'origin'" $ do
|
|
withTempGitRepoWithRemote $ \local -> do
|
|
-- Make a second commit on local and push to remote
|
|
writeFile (local </> "upstream.txt") "pushed to remote"
|
|
_ <- runGitIn local ["add", "upstream.txt"]
|
|
_ <- runGitIn local ["commit", "-m", "second commit"]
|
|
_ <- runGitIn local ["push", "origin", "main"]
|
|
|
|
-- Rewind local to the initial commit (simulate being behind)
|
|
_ <- runGitIn local ["reset", "--hard", "HEAD~1"]
|
|
|
|
countBefore <- commitCount local
|
|
countBefore `shouldBe` 1
|
|
|
|
let cfg = defaultRepoConfig {rcPath = local}
|
|
(code, _, _) <- gitPull cfg
|
|
code `shouldBe` ExitSuccess
|
|
|
|
countAfter <- commitCount local
|
|
countAfter `shouldBe` 2
|
|
|
|
it "rebases local commits on top of pulled changes" $ do
|
|
withSystemTempDirectory "converge-test-rebase" $ \tmp -> do
|
|
let remoteDir = tmp </> "remote.git"
|
|
let localDir = tmp </> "local"
|
|
|
|
-- Create directories before git init
|
|
createDirectory remoteDir
|
|
createDirectory localDir
|
|
|
|
-- Create bare remote
|
|
_ <- runGitIn remoteDir ["init", "--bare", "-b", "main"]
|
|
|
|
-- Create local repo, push initial commit
|
|
_ <- runGitIn localDir ["init", "-b", "main"]
|
|
_ <- runGitIn localDir ["config", "user.name", "test"]
|
|
_ <- runGitIn localDir ["config", "user.email", "test@test"]
|
|
_ <- runGitIn localDir ["remote", "add", "origin", remoteDir]
|
|
writeFile (localDir </> "initial.txt") "initial"
|
|
_ <- runGitIn localDir ["add", "initial.txt"]
|
|
_ <- runGitIn localDir ["commit", "-m", "initial commit"]
|
|
_ <- runGitIn localDir ["push", "-u", "origin", "main"]
|
|
|
|
-- Make a local-only commit (divergent from remote)
|
|
writeFile (localDir </> "local.txt") "local-only change"
|
|
_ <- runGitIn localDir ["add", "local.txt"]
|
|
_ <- runGitIn localDir ["commit", "-m", "local commit"]
|
|
|
|
-- Push a *different* commit to remote (from another clone)
|
|
let otherDir = tmp </> "other"
|
|
_ <- rawGit ["clone", remoteDir, otherDir]
|
|
_ <- runGitIn otherDir ["config", "user.name", "test"]
|
|
_ <- runGitIn otherDir ["config", "user.email", "test@test"]
|
|
writeFile (otherDir </> "remote.txt") "remote-only change"
|
|
_ <- runGitIn otherDir ["add", "remote.txt"]
|
|
_ <- runGitIn otherDir ["commit", "-m", "remote commit"]
|
|
_ <- runGitIn otherDir ["push", "origin", "main"]
|
|
|
|
-- Pull into local with divergent history.
|
|
-- CURRENT BEHAVIOR: git pull --no-edit fails on divergent
|
|
-- branches (exit 128). The spec requires rebase instead.
|
|
-- When --rebase is implemented, expect ExitSuccess and
|
|
-- linear history (commit count = 3).
|
|
let cfg = defaultRepoConfig {rcPath = localDir}
|
|
(code, _, err) <- gitPull cfg
|
|
-- Document current gap: divergent pull fails
|
|
code `shouldSatisfy` (/= ExitSuccess)
|
|
err `shouldSatisfy` ("fast-forward" `T.isInfixOf`)
|