test_that("str orders fields", {
desc <- description$new("!new")
desc$del("Package")
desc$set("Package", "foobar")
expect_match(cli::ansi_strip(desc$str()), "^Package:")
})
test_that("str formats some fields specially", {
desc <- description$new("!new")
desc$set("Imports", "pkg1, pkg2, \n pkg3, pkg4")
expect_match(
cli::ansi_strip(desc$str()),
"Imports:\n pkg1,\n pkg2,\n pkg3,\n pkg4"
)
desc$set("Collate", "file1.R 'file2.R' 'file with spaces.R' file4.R")
expect_match(
cli::ansi_strip(desc$str()),
"Collate:\n 'file1.R'\n 'file2.R'\n 'file with spaces.R'\n 'file4.R'"
)
})
test_that("str formats authors properly", {
desc <- description$new(test_path("D2"))
expect_snapshot(
cat(cli::ansi_strip(desc$str(by_field = TRUE)[["Authors@R"]]))
)
})
test_that("authors are printed to the screen properly", {
desc <- description$new(test_path("D2"))
expect_output(
print(desc),
"(parsed):
* Hadley Wickham <h.wickham@gmail.com> [aut, cre, cph]
* Peter Danenberg <pcd@roxygen.org> [aut, cph]
* Manuel Eugster [aut, cph]
* RStudio [cph]",
fixed = TRUE
)
})
test_that("continuation lines", {
desc <- description$new(test_path("D7"))
t1 <- desc$str(normalize = TRUE)
t2 <- desc$str(normalize = FALSE)
expect_false(grepl("\n[ \t]*\n", t1))
expect_false(grepl("\n[ \t]*\n", t2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.