tests/testthat/test_eloscoring.R

In bwsTools: Tools for Case 1 Best-Worst Scaling (MaxDiff) Designs

context("Calculate individual Elo scores")
library(bwsTools)

test_that("wide argument does what it is supposed to do", {
  res1 <- eloscoring(indiv, "id", "block", "label", "value", iter = 1)
  res2 <- eloscoring(indiv, "id", "block", "label", "value", 
                     iter = 1, wide = TRUE)
  
  expect_equal(ncol(res1), 3)
  expect_equal(ncol(res2), length(unique(indiv$label)) + 1)
})

test_that("the result is not a grouped df", {
  expect_false(dplyr::is_grouped_df(
    eloscoring(indiv, "id", "block", "label", "value", iter = 1)
  ))
})