tests/testthat/test_cpt.R

In psychelzh/dataprocr: Utility Functions for Data Processing of Iquizoo Games

context("CPT test")
library(dataprocr)
test_that("`cpt` should work for all kinds of data input", {
  expect_equal(
    cpt(
      jsonlite::read_json("data_cpt.json", simplifyVector = TRUE)
    ), 0.9722, tolerance = 1e-4
  )
  expect_equal(is.na(stopwatch(data.frame())), TRUE)
})