tests/testthat/test-count.R

In metadevpro/traitbaser: R package providing API access to Traitbase https://www.traitbase.info

context("count")
skip_on_cran()
skip_if_no_auth()

test_that("count traits > -1", {
  cnx <- connect("http://www.traitbase.info")
  resource <- resource(cnx, "traits")
  out <- count(resource)
  expect_equal(TRUE, out > -1)
})

test_that("count species with genus=Andrena => 0", {
  cnx <- connect("http://www.traitbase.info")
  resource <- resource(cnx, "species")
  out <- count(resource, conditions=buildCondition("genus", "==", "Andrena"))
  expect_equal(TRUE, out > -1)
})