tests/testthat/test-parse.R

In MangoTheCat/rcmdcheck: Run 'R CMD check' from 'R' and Capture Results

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))
})

test_that("results are not recycled to zero", {
  ok <- parse_check(test_path("REDCapR-ok.log"))
  fail <- parse_check(test_path("REDCapR-fail.log"))

  # Happens e.g. with `rcmdcheck::cran_check_results()`
  ok$rversion <- character()
  fail$rversion <- character()

  # Used to be "+" because of the recycling to zero
  out <- compare_checks(ok, fail)
  expect_equal(out$status, "-")
})