tests/testthat/test_OEIS_url.R

In EnriquePH/OEIS.R: Data from the on-Line Encyclopedia of Integer Sequences in R

id_error <- "A00005"
id_ok <- "A000055"

test_that("OEIS_url shows an error", {
  testthat::expect_error(OEIS_url(id_error))
})

test_that("OEIS_url returns and object of class character", {
  testthat::expect_equal(class(OEIS_url(id_ok)), "character")
})