tests/testthat/test-lcvp_summary.R

In idiv-biodiversity/lcvplants: The Leipzig Catalogue of Vascular Plants (LCVP) - An Improved Taxonomic Reference List for All Known Vascular Plants

if (requireNamespace("LCVP", quietly = TRUE)) {
  test_that("lcvp_summary works", {
    expect_warning(res_ex <-
                     lcvp_search(
                       c(
                         "Hibiscus abelmoschus var. betulifolius Mast.",
                         "Hibiscus abutiloides Willd.",
                         "Hibiscus aculeatus",
                         "Hibiscus acuminatus",
                         "Hibiscus error"
                       ),
                       max_distance = 1
                     ))
    expect_output(lcvp_summary(res_ex))
  })
}