tests/testthat/test-integration-git-commit-paths.R

In ropensci/tic: Tasks Integrating Continuously: CI-Agnostic Workflow Definitions

test_that("integration test: git commit paths", {
  cli::cat_boxx("integration test: git commit paths")

  # - Commit only a subset of changes that occur during deployment
  # - Check that only these changes are really committed

  bare_repo_path <- tempfile_slash("ticrepo")
  dir.create(bare_repo_path)
  git2r::init(bare_repo_path, bare = TRUE)

  package_path <- tempfile("ticpkg", fileext = "pkg")
  git2r::clone(bare_repo_path, package_path)

  tic_r <- c(
    'get_stage("deploy") %>%',
    # step_write_text_file() evaluates eagerly, won't work here
    "  add_code_step(writeLines(",
    '    as.character(Sys.time()), "time.txt"',
    "  )) %>%",
    "  add_code_step(writeLines(",
    '    as.character(Sys.time()), "deploy/time.txt"',
    "  )) %>%",
    paste0(
      '  add_step(step_push_deploy(remote_url = "',
      bare_repo_path,
      '", commit_paths = "deploy"))'
    )
  )

  cat("\n")
  withr::with_dir(
    package_path,
    { # nolint
      writeLines(tic_r, "tic.R")
      writeLines("^tic\\.R$", ".Rbuildignore")
      dir.create("deploy")
      writeLines(character(), "deploy/.gitignore")
      git2r::config(user.name = "tic", user.email = "tic@pkg.test")
      git2r::add(path = ".")
      git2r::commit(message = "Initial commit")
      system("git push") # git2r::push() is only trouble
    }
  )

  withr::with_dir(
    package_path,
    { # nolint
      callr::r(
        function() {
          tic::run_all_stages()
        },
        show = TRUE,
        env = c(callr::rcmd_safe_env(), TIC_LOCAL = "true")
      )
    }
  )

  last_bare_commit <- git2r::last_commit(bare_repo_path)
  expect_match(last_bare_commit$message, "Deploy from local build")

  package_path_2 <- tempfile("ticpkg", fileext = "pkg")
  git2r::clone(bare_repo_path, package_path_2)

  withr::with_dir(
    package_path_2,
    { # nolint
      expect_false(file.exists("time.txt"))
      expect_true(file.exists("deploy/time.txt"))
    }
  )
})