tests/testthat/test-upload_results.R

test_that("Test upload_results", {
  skip_on_cran()
  ## Upload empty results that are removed on the server.
  x = upload_results(NULL)
  ## Results ID should have date.
  expect_equal(grep(Sys.Date(), x), 1)

  fname = tempfile(fileext = ".rds")
  res = create_bundle(NULL, fname)
  expect_equal(res, readRDS(fname))

  res = create_bundle(NULL, fname, args = list(sys_info = FALSE))
  expect_true(is.na(res$sys_info))
  unlink(fname)

  }
)
csgillespie/benchmarkme documentation built on June 18, 2022, 8:59 a.m.