context("ipni_search")

# test_that("ipni_search works", {
#   skip_on_cran()
#
#   aa <- ipni_search(genus = 'Brintonia', isapnirecord = TRUE,
#                     isgcirecord = TRUE, isikrecord = TRUE)
#   cc <- ipni_search(genus = 'Pinus', species = 'contorta')
#
#   expect_is(aa, "data.frame")
#   expect_is(cc, "data.frame")
#   expect_is(aa$id, "character")
#   expect_is(aa$family, "character")
#
#   expect_named(aa, c('id','version','family','full_name_without_family_and_authors','authors'))
#   expect_is(aa$family, "character")
# })
#
# test_that("ipni_search works with different output formats", {
#   skip_on_cran()
#
#   aa <- ipni_search(genus = 'Brintonia')
#   bb <- ipni_search(genus = 'Brintonia', output = 'short')
#   cc <- ipni_search(genus = 'Brintonia', output = 'classic')
#   dd <- ipni_search(genus = 'Brintonia', output = 'extended')
#
#   expect_is(aa, "data.frame")
#   expect_is(bb, "data.frame")
#   expect_is(cc, "data.frame")
#   expect_is(dd, "data.frame")
#
#   expect_lt(NCOL(aa), NCOL(bb))
#   expect_lt(NCOL(bb), NCOL(cc))
#   expect_lt(NCOL(aa), NCOL(cc))
#   expect_lt(NCOL(aa), NCOL(dd))
#   expect_lt(NCOL(cc), NCOL(dd))
# })
#
# test_that("ipni_search fails correctly", {
#   skip_on_cran()
#
#   expect_error(ipni_search(), "No results")
#   expect_error(ipni_search(family = 5), "No results")
#   expect_warning(ipni_search(genus = "adfasdfasffd"), "No data found")
# })
