tests/testthat/test-participant_date.R

context("Consistency scoring")
library(synr)

test_that("Participant date is set and retrieved correctly", {
  p <- Participant$new(id="1")
  p$set_date("2020-10-27")
  expect_equal(p$test_date, as.Date("2020-10-27"))
})

Try the synr package in your browser

Any scripts or data that you put into this service are public.

synr documentation built on June 22, 2024, 7:25 p.m.