tests/testthat/test-one-module.R

In ReseauBiodiversiteQuebec/mapselector: Map selector module for Shiny

# could improve this eh
downloaded_sites <- rcoleo::download_sites_sf(token = Sys.getenv("RCOLEO_TOKEN"))

test_that("observation_display works as expected",{
  testServer(mod_observation_display_server, 
             args = list(
               site = downloaded_sites,
               region = reactive("137_111_F01")
             ),
             {
               
               testthat::expect_equal(dim(to_show()), c(203L, 28L))
               
               testthat::expect_s3_class(to_show(), "data.frame")
             })
})