tests/testthat/test_list_service_methods.R

context("List service methods")

testthat::test_that("list_service_methods() works", {
  vcr::use_cassette("list_service_methods", {
    res <- list_service_methods()
  })
  expect_equal(class(res), "character")
  expect_true(length(res) > 0)
})

Try the EDIutils package in your browser

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

EDIutils documentation built on Oct. 11, 2023, 1:08 a.m.