tests/testthat/test-locmem2.R

In psychelzh/dataproc.iquizoo: Utility Functions for Data Processing of Iquizoo Games

data <- withr::with_seed(
  1,
  expand_grid(
    id = 1:2,
    trial = 1:10
  ) |>
    rowwise() |>
    mutate(
      n_obj = sample.int(10, 1),
      resplocdist = runif(n_obj, 0, 10) |>
        round(2) |>
        stringr::str_c(collapse = "-"),
      respaccorder = sample(c(0, 1), n_obj, replace = TRUE) |>
        stringr::str_c(collapse = "-")
    ) |>
    ungroup()
)

test_that("Default behavior works", {
  expect_snapshot_value(
    locmem2(filter(data, id == 1)),
    style = "json2"
  )
})

test_that("Works with grouping variable", {
  expect_snapshot_value(
    locmem2(data, .by = "id"),
    style = "json2"
  )
})