Nothing
if (interactive()) pkgload::load_all(".")
testthat::context("Testing get_asciidoc")
rdp <- rasciidoc:::discover_python
testthat::test_that("discover python", {
result <- tryCatch(rdp(),
error = identity)
if (fritools::is_installed(rdp(stop_on_error = FALSE))
) {
testthat::expect_true(is.character(result))
} else {
testthat::expect_true(inherits(result, "error"))
}
}
)
testthat::test_that("get asciidoc", {
result <- tryCatch(rasciidoc:::get_asciidoc(),
error = identity)
if (fritools::is_installed(rdp(stop_on_error = FALSE))
) {
testthat::expect_type(result[["asciidoc_source"]],
"character")
source_file <- result[["asciidoc_source"]]
testthat::expect_true(file.exists(source_file))
} else {
testthat::expect_true(inherits(result, "error"))
}
}
)
testthat::test_that("run asciidoc", {
folder <- system.file("runit_tests", "files",
package = "rasciidoc")
adoc <- file.path(folder, "simple.asciidoc")
wdir <- tempfile()
dir.create(wdir)
file.copy(adoc, wdir)
# misspecified arguments
withr::with_dir(tempdir(),
status <-
rasciidoc(file.path(wdir,
basename(adoc)),
write_to_disk = FALSE,
enforce_requirements = FALSE,
"-b does_not_exists")
)
testthat::expect_true(!status)
withr::with_dir(tempdir(),
status <-
rasciidoc(file.path(wdir,
basename(adoc)))
)
if (fritools::is_installed(rdp(stop_on_error = FALSE))) {
if (isTRUE(status)) {
testthat::expect_true(status)
result <- readLines(file.path(tempdir(), "simple.html"))
pattern <- "(^([-:[]|$)|\\t)"
if (!fritools::is_installed("source-highlight")) {
pattern <- paste0(pattern, "|\\(.*\\)")
}
expected <- grep(value = TRUE, invert = TRUE,
pattern = pattern,
readLines(adoc))
expected <- trimws(sub("^=* ", "", expected))
hit <- sapply(expected,
function(x) any(grepl(x, result,
fixed = TRUE)))
testthat::expect_true(all(hit))
} else {
message(paste(names(unlist(attr(status, "info"))),
unlist(attr(status, "info")),
collapse = "; ", sep = ": "))
}
} else {
testthat::expect_true(!status)
}
}
)
testthat::test_that("render", {
folder <- system.file("runit_tests", "files", package = "rasciidoc")
file.copy(folder, tempdir(), recursive = TRUE)
#% render
withr::with_dir(file.path(tempdir(), "files"),
status <- render("simple.Rasciidoc"))
infile <- file.path(tempdir(), "files", "simple.Rasciidoc")
if (fritools::is_installed(rdp(stop_on_error = FALSE))) {
if (isTRUE(status)) {
result <- readLines(file.path(tempdir(), "simple.html"))
pattern <- "(^([:/]|$)|\\t)"
if (!fritools::is_installed("source-highlight")) {
pattern <- paste0(pattern, "|\\(.*\\)")
}
data(mtcars)
expected <- c(readLines(infile), capture.output(str(mtcars)))
expected <- grep(value = TRUE, invert = TRUE,
pattern = pattern,
expected)
expected <- trimws(sub("^=* ", "", expected))
hit <- sapply(expected,
function(x) any(grepl(x, result, fixed = TRUE)))
testthat::expect_true(all(hit))
} else {
message(paste(names(unlist(attr(status, "info"))),
unlist(attr(status, "info")),
collapse = "; ", sep = ": "))
}
} else {
testthat::expect_true(!status)
}
}
)
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.