tests/testthat/test-unit-survstat-backend.R

In rsurvstat: Download Infectious Disease Data from 'SurvStat' (Robert Koch Institute)

# Standalone file: do not edit by hand
# Generated by: pkgtools from @unit tags
# ----------------------------------------------------------------------
library(rsurvstat)

# unit test start: .check_curl ----

test_that(".check_curl unit test", {

  # Automatically generated test case from roxygen @unit tag
  # Do not edit here - follow the link to the source file.
  # or navigate to topic with <F2>
  F2 = .check_curl
  

  testthat::expect_no_error(withCallingHandlers(
    {
      .check_curl()
    },
    warning = function(e) {
      message("Warning issued: ", e$message)
      invokeRestart("muffleWarning")
    }
  ))

  # generates a failure if the overall test is failing with a link to the 
  # source of the unit test:
  testthat::expect(rlang::caller_env(n = 2)$ok,
    failure_message = "Source link for failing @unit test.",
    srcref = srcref(srcfile("../../R/survstat-backend.R"), c(6, 1, 6+1, 1))
  )
})

# unit test end: .check_curl ----
# end of unit tests ----