Nothing
test_that("warn about unknown tags", {
block <- "
#' @unknown
foo <- function() {}
"
expect_snapshot(. <- roc_proc_text(rd_roclet(), block))
})
# Test low-level behaviour ----------------------------------------------------
test_that("braces must balance", {
expect_true(rdComplete("{}", is_code = FALSE))
expect_true(rdComplete("{{}}", is_code = FALSE))
expect_false(rdComplete("{", is_code = FALSE))
expect_false(rdComplete("}", is_code = FALSE))
})
test_that("can't end with escape", {
expect_false(rdComplete("\\", is_code = FALSE))
})
test_that("escaped brackets are ignored", {
expect_true(rdComplete("\\{", is_code = FALSE))
expect_true(rdComplete("\\}", is_code = FALSE))
expect_false(rdComplete("{\\}", is_code = FALSE))
})
test_that("brackets in comments are ignored", {
expect_true(rdComplete("% {", is_code = FALSE))
expect_true(rdComplete("% }", is_code = FALSE))
})
test_that("R comments don't close latex-like tags", {
expect_true(rdComplete("A comment \\code{#}.", is_code = FALSE))
})
test_that("newline ends comment", {
expect_false(rdComplete("%\n{", is_code = FALSE))
})
test_that("escape disables comment", {
expect_false(rdComplete("\\%{", is_code = FALSE))
})
test_that("strings must be closed in code", {
expect_false(rdComplete("'", is_code = TRUE))
expect_false(rdComplete('"', is_code = TRUE))
})
test_that("strings respect escapes", {
expect_false(rdComplete("'\\'", is_code = TRUE)) # '\'
expect_true(rdComplete("'\\''", is_code = TRUE)) # '\''
})
test_that("braces in strings don't need to match in code", {
expect_true(rdComplete("'{{'", is_code = TRUE))
})
test_that("strings in code comments don't need to be closed", {
expect_true(rdComplete("# '", is_code = TRUE))
})
test_that("braces in code must match", {
expect_false(rdComplete("# {", is_code = TRUE))
expect_true(rdComplete("# {}", is_code = TRUE))
})
# Test that incomplete Rd is caught in Rd blocks -------------------------------
test_that("incomplete rd in prequel or tag raises issue", {
block <- "
#' Title {
#' @aliases title{
x <- 1
"
expect_snapshot(out <- roc_proc_text(rd_roclet(), block))
expect_equal(out[[1]]$get_value("title"), "")
expect_equal(out[[1]]$get_value("alias"), "x")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.