tests/testserver/test_ts_studies_seasons.R

In c5sire/brapi: Client to Access Breeding Databases Using BrAPI

context("ts studies_seasons")

con <- ba_db()$testserver

test_that("Studies_seasons are present", {

  res <- ba_studies_seasons(con = con, year = 2011)
  expect_that( nrow(res) > 0, is_true())

})


test_that("Output is transformed", {

  res <- ba_studies_seasons(con = con, year = 2011, rclass = "json")
  expect_that("json" %in%  class(res), is_true())

})