tests/testthat/test-collate.R

In roxygen2: In-Line Documentation for R

test_that("collation as expected", {
  names <- generate_collate(test_path("collate"))

  before <- function(a, b) {
    all(which(names %in% a) < which(names %in% b))
  }

  expect_true(before("undershorts", "pants"))
  expect_true(before(c("tie", "belt"), "jacket"))
  expect_true(before(c("socks", "undershorts", "pants"), "shoes"))
})

test_that("update_collate() checks that directory exists", {
  expect_snapshot(update_collate("doesn't-exist"), error = TRUE)
})

test_that("Collate field unchanged when no @includes", {
  local_package_copy(test_path('testCollateNoIncludes'))

  update_collate(".")
  expect_equal(desc::desc_get_field("Collate"), "b.r a.r")
})

test_that("DESCRIPTION file is re-written only if collate changes", {
  local_package_copy(test_path("testCollateOverwrite"))

  expect_snapshot({
    update_collate(".")
    "Second run should be idempotent"
    update_collate(".")
  })
})

test_that("can read from file name with utf-8 path", {
  path <- withr::local_tempfile(
    pattern = "Universit\u00e0-",
    lines = c("#' @include foo.R", NULL)
  )
  expect_equal(find_includes(path), "foo.R")
})