tests/sweetpotatobase/test_sp_traits_details.R

context("sp traits_details")

con <- ba_db()$sweetpotato

test_that("Traits_details are present", {

  res <- ba_traits_details(con = con, traitDbId = "1")
  expect_that(nrow(res) == 1, is_true())

})

test_that("Traits_details are present", {

  expect_error( ba_traits_details(con = con, traitDbId = "1",  rclass = "any"))

})
CIP-RIU/brapi documentation built on Oct. 17, 2019, 2 p.m.