Nothing
test_that("can parse basic package information from file", {
skip_on_cran()
outfile <- "bikedata-ok.log"
check <- parse_check(test_path(outfile))
expect_equal(check$package, "bikedata")
expect_equal(check$version, "0.0.3")
expect_equal(check$rversion, "3.4.1")
})
cli::test_that_cli("install log is captured", {
skip_on_cran()
outfile <- "RSQLServer-install"
path <- test_path(outfile)
check <- parse_check(path)
expect_match(check$install_out, "unable to load shared object")
expect_snapshot(
print(check)
)
})
cli::test_that_cli("test failures are captured", {
skip_on_cran()
outfile <- "dataonderivatives-test"
path <- test_path(outfile)
check <- parse_check(path)
expect_named(check$test_fail, "testthat")
expect_match(check$test_fail[[1]], "BSDR API accesible")
expect_snapshot(
print(check)
)
})
test_that("test failure, ERROR in new line", {
skip_on_cran()
outfile <- "fixtures/test-error.txt"
check <- parse_check(test_path(outfile))
expect_equal(length(check$errors), 1)
expect_equal(length(check$warnings), 0)
expect_equal(length(check$notes), 3)
})
# data frame coercion -----------------------------------------------------
test_that("can coerce to data frame", {
skip_on_cran()
outfile <- "REDCapR-fail.log"
check <- parse_check(test_path(outfile))
df <- as.data.frame(check, which = "new")
expect_equal(nrow(df), 1)
expect_equal(df$type, "error")
})
test_that("successful check yields zero rows", {
skip_on_cran()
outfile <- "bikedata-ok.log"
check <- parse_check(test_path(outfile))
df <- as.data.frame(check, which = "new")
expect_equal(nrow(df), 0)
})
test_that("hash_check drops time stamps", {
n1 <- "checking R code for possible problems ... [7s/9s] NOTE\nblah"
n2 <- "checking R code for possible problems ... [17s] NOTE\nfoo"
n3 <- "checking R code for possible problems ... NOTE\nand more"
expect_equal(hash_check(n1), hash_check(n2))
expect_equal(hash_check(n1), hash_check(n3))
})
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.