tests/testthat/test-create_repo.R

In ropenscilabs/ozrepro: A simple interface and workflow for version control in R (implemented using git as backend but without the confusion)

context("create = git init + project template")

test_path <- getwd()

test_that("create_repo(): create repo in the same directory as getwd() with correct file structure", {
  path <- tempfile(pattern = "tmpInitFolder-")
  dir.create(path)
  path <- normalizePath(path)
  setwd(path)
  expect_message(create_repo(add_structure = TRUE, change_wd = FALSE),
                 paste0("started version control project at ", path))
  expect_equal(getwd(), path)
  created_files  <-  c(".git/config", ".gitignore", "data/.keep", "data/README.md", "ignore/.keep", "output/.keep", "R/.keep", "R/utils.R", "README.md")
  for (j in seq_along(created_files)) {
  	print(paste0(created_files[j], ' exists'))
  	expect_true(file.exists(created_files[j]))
  }  
  setwd(test_path)
  unlink(path, recursive = TRUE)
})

test_that("create_repo(): create repo in a new directory different from getwd() with correct file structure", {
  path <- tempfile(pattern = "tmpInitFolder-")
  dir.create(path)
  path <- normalizePath(path)
  expect_message(create_repo(path, add_structure = TRUE, change_wd = TRUE),
                 paste0("started version control project at ", path))
  expect_equal(getwd(), path)
  expect_false(getwd() == test_path)
  created_files  <-  c(".git/config", ".gitignore", "data/.keep", "data/README.md", "ignore/.keep", "output/.keep", "R/.keep", "R/utils.R", "README.md")
  for (j in seq_along(created_files)) {
    print(paste0(created_files[j], ' exists'))
    expect_true(file.exists(created_files[j]))
  }  
  setwd(test_path)
  unlink(path, recursive = TRUE)
})

test_that("create_repo(): create repo in a new directory different from getwd() with no file structure", {
  path <- tempfile(pattern = "tmpInitFolder-")
  dir.create(path)
  path <- normalizePath(path)
  expect_message(create_repo(path, add_structure = FALSE, change_wd = TRUE),
                 paste0("started version control project at ", path))
  expect_true(file.exists(".git/config"))
  created_files  <-  c(".gitignore", "data/.keep", "data/README.md", "ignore/.keep", "output/.keep", "R/.keep", "R/utils.R", "README.md")
  for (j in seq_along(created_files)) {
    print(paste0(created_files[j], ' exists'))
    expect_false(file.exists(created_files[j]))
  }  
  setwd(test_path)
  unlink(path, recursive = TRUE)
})

test_that("create_repo(): create repo in a new directory different from getwd() with no file structure, no commits", {
  path <- tempfile(pattern = "tmpInitFolder-")
  dir.create(path)
  path <- normalizePath(path)
  expect_message(create_repo(path, add_structure = FALSE, change_wd = TRUE),
                 paste0("started version control project at ", path))
  .cache  <-  changes:::.cache
  .cache$repo  <- NULL
  expect_output(changes(), "no changes since the last")
  # .git folder with no commits
  setwd(test_path)
  unlink(path, recursive = TRUE)
})

test_that("create_repo(): create repo twice returns error", {
  path <- tempfile(pattern = "tmpInitFolder-")
  dir.create(path)
  path <- normalizePath(path)
  expect_message(create_repo(path, add_structure = FALSE, change_wd = TRUE),
                 paste0("started version control project at ", path))
  expect_error(create_repo(path, add_structure = FALSE, change_wd = TRUE))
  setwd(test_path)
  unlink(path, recursive = TRUE)
})