tests/testthat/test-write_runtime.R

In karthik/holepunch: Configure Your R Project for 'binderhub'

test_that("Write runtime works", {
  tpath <- test_path("dir_code")
  unlink(test_path("dir_code/.binder"))
  unlink(test_path("dir_code/.binder/Dockerfile"))
  write_runtime(path = tpath)
  expect_true(fs::file_exists(glue::glue("{tpath}/.binder/runtime.txt")))
  unlink(test_path("dir_code/.binder"))
})


test_that("Write runtime gets right date", {
  tpath <- test_path("dir_code")
  unlink(test_path("dir_code/.binder"))
  write_runtime(path = tpath, r_date = "2019-03-02")
  runtime_file <- readLines(glue::glue("{tpath}/.binder/runtime.txt"))
  expect_identical("r-2019-03-02", runtime_file)
  unlink(test_path("dir_code/.binder"))
})


test_that("Write runtime gets right date", {
  tpath <- test_path("dir_code")
  unlink(test_path("dir_code/.binder"))
  write_runtime(path = tpath, version = "3.6", r_date = "2019-03-02")
  runtime_file <- readLines(glue::glue("{tpath}/.binder/runtime.txt"))
  expect_identical("r-3.6-2019-03-02", runtime_file)
  unlink(test_path("dir_code/.binder"))
})

test_that("A warning is generated if Dockerfile exists", {
  tpath <- test_path("dir_code")
  unlink(test_path("dir_code/.binder"))
  docker_contents <- "yippkie kay yay"
  path <- holepunch:::sanitize_path(tpath) # To kill trailing slashes
  fs::dir_create(glue::glue("{path}/.binder"))
  fileConn <- file(glue::glue("{path}/.binder/Dockerfile"))
  writeLines(docker_contents, fileConn)
  close(fileConn)
  expect_warning(write_runtime(path = tpath, r_date = "2019-03-02"))
  unlink(test_path("dir_code/.binder"))
})
teardown(unlink("tests/testthat/dir_code/.binder"))