inst/ignore/tests/test-ubio_id.R

In ropensci/taxize: Taxonomic Information from Around the Web

# tests for ubio_id fxn in taxize
context("ubio_id")

out <- ubio_id(namebankID = 2483153)

test_that("ubio_id returns the correct dimensions", {
	expect_that(length(out), equals(5))
	expect_that(dim(out$data), equals(c(1,8)))
	expect_that(dim(out$synonyms), equals(c(7,3)))
	expect_that(dim(out$vernaculars), equals(c(27,5)))
	expect_that(dim(out$cites), equals(c(7,4)))
})

test_that("ubio_id returns the correct class", {
	expect_that(out, is_a("list"))
	expect_that(out$synonyms, is_a("data.frame"))
	expect_that(out$cites, is_a("data.frame"))
})