test_that("Check check_url functions as expected", {
  expect_warning(check_url("https://www.a-very-stupid-and-silly-website.com/"), "https://www.a-very-stupid-and-silly-website.com/ is offline")
  expect_is(check_url("https://www.google.com"), "httr2_response")
})

test_that("Check asyncLog functions as expected", {
  expect_error(asyncLog(FALSE, "message", type = "error"), "message")
  expect_warning(asyncLog(FALSE, "message", type = "warning"), "message")
  expect_equal(asyncLog(TRUE, "message", type = "error"), "message")
})