tests/testserver/test_ts_phenotypes_search_post.R

In CIP-RIU/brapi: Client to Access Breeding Databases Using BrAPI

context("ts phenotypes_search_post")

con <- ba_db()$testserver


test_that(" are present", {

  res <- ba_phenotypes_search_post(con = con, pageSize = 10 )
  expect_true(nrow(res) >= 154)

})

test_that(" out formats work", {

  out <- ba_phenotypes_search_post(con = con, pageSize = 1,
                              observationVariableDbIds = "MO_123:100002",
                              rclass = "tibble")
  expect_true("tbl_df" %in% class(out))



})