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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
test_that("Sweave vignettes copied into doc", {
if (!pkgbuild::has_latex()) {
skip("pdflatex not available")
}
pkg <- local_package_copy(test_path("testVignettes"))
suppressMessages(build_vignettes(pkg, quiet = TRUE))
expect_setequal(
path_file(dir_ls(path(pkg, "doc"))),
c("new.pdf", "new.R", "new.Rnw")
)
})
test_that("Built files are updated", {
# This test is time dependant and sometimes fails on CRAN because the systems are under heavy load.
skip_on_cran()
pkg <- local_package_copy(test_path("testMarkdownVignettes"))
suppressMessages(build_vignettes(pkg, quiet = TRUE))
output <- dir_ls(path(pkg, "doc"), regexp = "new")
first <- file_info(output)$modification_time
Sys.sleep(.01)
suppressMessages(build_vignettes(pkg, quiet = TRUE))
second <- file_info(output)$modification_time
expect_true(all(second > first))
})
test_that("Rmarkdown vignettes copied into doc", {
pkg <- local_package_copy(test_path("testMarkdownVignettes"))
doc <- path(pkg, "doc")
suppressMessages(build_vignettes(pkg, quiet = TRUE))
expect_setequal(path_file(dir_ls(doc)), c("test.html", "test.R", "test.Rmd"))
})
test_that("extra files copied and removed", {
pkg <- local_package_copy(test_path("testMarkdownVignettes"))
writeLines("a <- 1", path(pkg, "vignettes", "a.R"))
extras_path <- path(pkg, "vignettes", ".install_extras")
writeLines("a.R", extras_path)
suppressMessages(build_vignettes(pkg, quiet = TRUE))
expect_true(file_exists(path(pkg, "doc", "a.R")))
suppressMessages(clean_vignettes(pkg))
expect_false(file_exists(path(pkg, "doc", "a.R")))
})
test_that(".gitignore updated when building vignettes", {
pkg <- local_package_copy(test_path("testMarkdownVignettes"))
gitignore <- path(pkg, ".gitignore")
suppressMessages(build_vignettes(pkg, quiet = TRUE))
expect_true(all(c("/Meta/", "/doc/") %in% readLines(gitignore)))
})
|
