tests/testthat/test-filter.R

In EMODnet/EMODnetWFS: Access 'EMODnet' Web Feature Service data through R

test_that("categorical filters work -- biology", {
  skip_if_offline()
  wfs <- create_biology_wfs()
  with_mock_dir("Malta-Israele", {
    simple_filter_sf <- emodnet_get_layers(
      wfs = wfs,
      layers = "mediseh_cymodocea_pnt",
      cql_filter = "country='Israele'",
      simplify = TRUE
    )
    expect_identical(unique(simple_filter_sf$country), "Israele")

    or_filter_sf <- emodnet_get_layers(
      wfs = wfs,
      layers = "mediseh_cymodocea_pnt",
      cql_filter = "country='Malta' OR country=='Israele'",
      simplify = TRUE
    )
  })
  expect_identical(unique(or_filter_sf$country), c("Israele", "Malta"))
})

test_that("numeric filters work -- biology", {
  skip_if_offline()
  forget_all()
  wfs <- create_biology_wfs()
  with_mock_dir("nodata", {
    num_filter_sf <- emodnet_get_layers(
      wfs = wfs,
      layers = "mediseh_posidonia_nodata",
      cql_filter = "km>400",
      simplify = TRUE
    )
  })
  expect_gt(min(num_filter_sf$km), 400L)
})