tests/testthat/test-NPS.R

test_that("addNoAnswer works", {
  expect_equal(length(levels(addNoAnswer(1))), 11)
})

test_that("NPS works",{
  expect_true(is.numeric(NPS(c(1,2,3,4))))
})
nicolas95870/SatisfiRe documentation built on Dec. 22, 2021, 2:14 a.m.