1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
test_that("use_package_doc() compatible with roxygen_ns_append()", {
create_local_package()
withr::local_options(list(usethis.quiet = FALSE, crayon.enabled = FALSE))
expect_snapshot(use_package_doc(), transform = scrub_testpkg)
expect_snapshot(roxygen_ns_append("test"), transform = scrub_testpkg)
expect_silent(roxygen_ns_append("test"))
})
test_that("use_roxygen_md() adds DESCRIPTION fields to naive package", {
skip_if_not_installed("roxygen2")
pkg <- create_local_package()
use_roxygen_md()
desc <- proj_desc()
expect_equal(desc$get("Roxygen"), c(Roxygen = "list(markdown = TRUE)"))
expect_true(desc$has_fields("RoxygenNote"))
expect_true(uses_roxygen_md())
})
test_that("use_roxygen_md() finds 'markdown = TRUE' in presence of other stuff", {
skip_if_not_installed("roxygen2")
pkg <- create_local_package()
desc::desc_set(Roxygen = 'list(markdown = TRUE, r6 = FALSE, load = "source", roclets = c("collate", "namespace", "rd", "roxyglobals::global_roclet"))')
local_check_installed()
expect_no_error(use_roxygen_md())
expect_true(uses_roxygen_md())
})
|
