tests/testthat/test-get_empty_geoinstances.R

In geomultistar: Multidimensional Queries Enriched with Geographic Data

context("test get_empty_geoinstances")

test_that("get_empty_geoinstances works", {
  gms <-
    geomultistar(ms = ms_mrs_test, geodimension = "where")
  gms <-
    define_geoattribute(
      gms,
      attribute = "city",
      from_layer = usa_cities,
      by = c("city" = "city", "state" = "state")
    )

  empty <- get_empty_geoinstances(gms, attribute = "city")

  expect_equal(
    c(names(empty),
      nrow(empty),
      empty$city, empty$state),
    c("city", "state", "geometry", "1", "Bridgepor", "CT")
  )
})