tests/testthat/test-area.R

In hejtmy/navr: Collection of functions that find typical use in human navigation cognitive paradigms

context("Area addition")

obj <- navr_object
obj_prep <- navr_object_preprocessed

rectangle_area <- AreaObject("test square", "rectangle", matrix(c(0, 0, 1, 0, 1, 1, 0, 1), ncol=2, byrow=T))

test_that("creating column works", {
  expect_silent(res <- add_areas(obj_prep, list(rectangle_area)))
  expect_true(has_areas(res))
  wrong_area <- AreaObject("wrong", "non existent type", matrix(c(0, 0, 1, 0, 1, 1, 0, 1), ncol=2, byrow=T))
  expect_warning(res <- add_areas(obj_prep, list(wrong_area)))
})

test_that("working with multiple areas work", {
  rectangle_area2 <- rectangle_area
  rectangle_area2$points <- rectangle_area2$points + 5
  expect_silent(res <- add_areas(obj_prep, list(rectangle_area, rectangle_area2)))
})


test_that("calculating visitations work", {
  # Test that if no such cross exists it returns NULL
})