tests/testthat/test-getters.R

In hejtmy/fgu-avoidance: Loading, preprocessing and visualising logs from the avoidance box

context("Testing getter functions")

test_that("testing animal selection", {
  animal_names <- names(obj)
  expect_error(selection <- filter_animals(obj, animal_names[1:2]), NA)
  expect_length(selection, 2)
  expect_s3_class(selection, "avoidance.multiple")
  expect_length(filter_animals(obj, animal_names[1]), 1)
  expect_length(filter_animals(obj, "Nobody would name animal in this way"), 0)
})