tests/testthat/test-values.psychobject.R

context("values.psychobject")

test_that("It works", {
  output <- list(values = 1)
  class(output) <- c("psychobject", "list")
  values <- values(output)
  expect_equal(values, 1)
})
neuropsychology/psycho.R documentation built on Jan. 20, 2019, 4:51 a.m.