tests/testthat/test_meanscore.R

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

context("Mean correct answers per minute")
library(dataprocr)
test_that(
  "`meanscore` should work for several tests", {
    expect_equal(
      meanscore(
        jsonlite::read_json("data_dot_connect.json", simplifyVector = TRUE)
      ), 13
    )
    expect_equal(is.na(count_correct(data.frame())), TRUE)
  }
)