mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-02 10:45:06 -05:00
28 lines
958 B
R
28 lines
958 B
R
context("staticdocs")
|
|
|
|
test_that("All man pages have an entry in staticdocs/index.r", {
|
|
if (!all(file.exists(c('../../staticdocs', '../../man')))) {
|
|
# This test works only when run against a package directory
|
|
return()
|
|
}
|
|
# Known not to be indexed
|
|
known_unindexed <- c("shiny-package")
|
|
|
|
indexed_topics <- local({
|
|
result <- character(0)
|
|
sd_section <- function(dummy1, dummy2, section_topics) {
|
|
result <<- c(result, section_topics)
|
|
}
|
|
source("../../staticdocs/index.r", local = TRUE)
|
|
result
|
|
})
|
|
|
|
all_topics <- sub("\\.Rd", "", list.files("../../man", pattern = "*.Rd"))
|
|
|
|
# This test ensures that every documented topic is included in
|
|
# staticdocs/index.r, unless explicitly waived by specifying it
|
|
# in the known_unindexed variable above.
|
|
expect_equivalent(sort(all_topics), sort(c(known_unindexed, indexed_topics)),
|
|
info = format(setdiff(sort(all_topics), sort(c(known_unindexed, indexed_topics)))))
|
|
})
|