tests/testthat/test-validation.R

In griverorz/nps-package: Utilities for Net Promote Score calculation

context("Instance validation")

test_that("Malformed NPS data", {
    expect_error(nps(-1), "Values outside the range")
    expect_error(nps(11), "Values outside the range")
    expect_error(nps(0, bottom=1:6), "Values outside the range")
    expect_error(nps(10, top=9), "Values outside the range")
    expect_error(nps(0, bottom=0:10, top=0:10), "Top and bottom must not overlap")
})