tests/testthat/test_getGroups.R

In geometr: Generate and Modify Interoperable Geometric Shapes

library(checkmate)
library(testthat)
library(raster)
context("getGroups")


test_that("getGroups of a 'geom'", {
  # test grid geom
  # ... layer with attribute table
  output <- getGroups(gtGeoms$grid$categorical)
  expect_data_frame(output, any.missing = FALSE, nrows = 9, ncols = 2)
  expect_names(x = names(output), permutation.of = c("gid", "cover"))

  # ... layer without attribute table
  output <- getGroups(gtGeoms$grid$continuous)
  expect_data_frame(output, any.missing = FALSE, nrows = 91, ncols = 1)
  expect_names(x = names(output), permutation.of = c("gid"))
})

test_that("getGroups of a Raster* object", {

  # test RasterLayer without attribute table
  input <- gtRasters$continuous
  output <- getGroups(input)
  expect_data_frame(output, any.missing = FALSE, nrows = 0, ncols = 1)
  expect_names(x = names(output), permutation.of = c("gid"))

  # test RasterLayer with attribute table
  input <- gtRasters$categorical
  output <- getGroups(input)
  expect_tibble(output, any.missing = FALSE, nrows = 9, ncols = 2)
  expect_names(names(output), permutation.of = c("gid", "cover"))
})

test_that("getGroups returns a given raster attribute table", {
  input <- gtRasters$categorical

  output <- getGroups(input)
  expect_data_frame(output, any.missing = FALSE, nrows = 9, ncols = 2)
  expect_names(names(output), identical.to = c("gid", "cover"))
})

test_that("getGroups of any other object", {
  output <- getGroups("bla")
  expect_null(object = output)
})