tests/testthat/test_start_test.R

library(rgtmx)

test_that("start_stest returns error if no or malformed URL supplied", {
  expect_error(start_test(url = NULL))
  expect_error(start_test(url = NA))
  expect_error(start_test(url = ""))
  expect_error(start_test(url = 1))
  expect_error(start_test(url = list(list("A", "B"))))
})
#> Test passed 🌈

Try the rgtmx package in your browser

Any scripts or data that you put into this service are public.

rgtmx documentation built on Nov. 12, 2021, 1:08 a.m.