tests/testthat/test-auto_score.R

In HCIC/r-tools: Supplies tools for analysis in psychological surveys

test_that("auto_score does not crash", {

  bfi <- psych::bfi
  # thes adding first
  #keys <- list(KUT = c("KUT1", "-KUT2"))
  #dataforsocialscience::robo_care_raw %>% add_scores("KUT", keys)

  testthat::expect_error( bfi %>% auto_score("A"), NA)

  #dataforsocialscience::robo_care_raw %>% auto_score("KUT")

})