tests/testthat/test_OEIS_check.R

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

id_error <- "A002000Z"
id_ok <- "A002000"

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

test_that("OEIS_check works", {
  testthat::expect_error(OEIS_check(id_ok), NA)
})

test_that("OEIS_check returns an object of the class OEIS_ID", {
  testthat::expect_identical(class(OEIS_check(id_ok)), "OEIS_ID")
})