tests/testthat/test-get_coords.R

In quadkeyr: Generate Raster Images from QuadKey-Identified Datasets

# example
grid <- create_qk_grid(
  xmin = -59,
  xmax = -57,
  ymin = -35,
  ymax = -34,
  zoom = 12
)

# Test cases for `get_qk_coord()`
test_that("Check existence of 'quadkey' column", {
  # Create a dataframe without 'quadkey' column
  df_missing_column <- data.frame(other_column = c(1, 2, 3))

  # Test case where 'quadkey' column is missing
  expect_error(
    get_qk_coord(df_missing_column),
    regexp = paste(
      "Please ensure that the dataset contains",
      "a column named 'quadkey'."
    )
  )

  # Create a dataframe with 'quadkey' column
  df_with_column <- data.frame(quadkey = c("abc", "def", "ghi"))

  # Test case where 'quadkey' column is present
  expect_silent(get_qk_coord(grid$data))
})

# Test cases for `get_tile_coord()`
test_that("Check existence of 'tileX' and 'tileY' columns", {
  # Create a dataframe without 'tileX' and 'tileY' columns
  df_missing_columns <- data.frame(other_column = c(1, 2, 3))

  # Test case where 'tileX' and 'tileY' columns are missing
  expect_error(
    get_tile_coord(df_missing_columns, zoom = 6),
    regexp = paste(
      "Please ensure that the dataset contains",
      "columns named 'tileX' and 'tileY'"
    )
  )

  # Test case where 'tileX' and 'tileY' columns are present
  expect_silent(get_tile_coord(grid$data, zoom = 12))
})

# Both
test_that("Check output dimensions", {
  # the number of points in the grid is equal to the product of the
  # number of columns and rows
  # calculated when the grid was generated
  expect_equal(
    nrow(get_qk_coord(grid$data)),
    ((grid$num_rows) * (grid$num_cols))
  )

  expect_equal(
    nrow(get_tile_coord(grid$data, zoom = 12)),
    ((grid$num_rows) * (grid$num_cols))
  )
})