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 Sept. 22, 2018, 6:39 p.m.