tests/testthat/test_OEIS_author.R

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

# A242310: Ilya Lopatin and Juri-Stepan Gerasimov, May 10 2014
# A000056: _N. J. A. Sloane_
# A051419: Paul L. Chessin (pchess(AT)ix.netcom.com)
# A000045: 	_N. J. A. Sloane, 1964_
# A169890: _David Applegate_, _Marc LeBrun_ and _N. J. A. Sloane_, Jul 06 2010
# A169888: _N. J. A. Sloane_, Jul 07 2010, based on a letter from _Jean-Claude
# Babois_.

id <- "A169890"

test_that("OEIS sequence A169890 has three authors", {
  testthat::expect_equal(id %>%
                           OEIS_author %>%
                           length, 3)
})