tests/testthat/test-hasi_bsa_to_ordinal.R

In hidradenitis: Calculate Clinical Scores for Hidradenitis Suppurativa (HS), a Dermatologic Disease

test_that("convert_bsa_to_ordinal NA - error", {
  expect_identical(
    hasi_bsa_to_ordinal(NA_real_),
    NA_integer_
  )
})

test_that("Test every value", {
  expect_identical(hasi_bsa_to_ordinal(0), 0L)
  expect_identical(hasi_bsa_to_ordinal(1), 1L)
  expect_identical(hasi_bsa_to_ordinal(3), 1L)
  expect_identical(hasi_bsa_to_ordinal(4), 2L)
  expect_identical(hasi_bsa_to_ordinal(9), 2L)
  expect_identical(hasi_bsa_to_ordinal(10), 3L)
  expect_identical(hasi_bsa_to_ordinal(20), 3L)
  expect_identical(hasi_bsa_to_ordinal(21), 4L)
  expect_identical(hasi_bsa_to_ordinal(29), 4L)
  expect_identical(hasi_bsa_to_ordinal(30), 5L)
  expect_identical(hasi_bsa_to_ordinal(50), 5L)
  expect_identical(hasi_bsa_to_ordinal(51), 6L)
  expect_identical(hasi_bsa_to_ordinal(100), 6L)
})

test_that("Test for values within each range", {
  expect_identical(hasi_bsa_to_ordinal(2), 1L)
  expect_identical(hasi_bsa_to_ordinal(6), 2L)
  expect_identical(hasi_bsa_to_ordinal(15), 3L)
  expect_identical(hasi_bsa_to_ordinal(26), 4L)
  expect_identical(hasi_bsa_to_ordinal(40), 5L)
  expect_identical(hasi_bsa_to_ordinal(75), 6L)
})

test_that("Test for values on the boundary of multiple ranges", {
  expect_identical(hasi_bsa_to_ordinal(2.999), 1L)
  expect_identical(hasi_bsa_to_ordinal(3.001), 2L)
  expect_identical(hasi_bsa_to_ordinal(8.999), 2L)
  expect_identical(hasi_bsa_to_ordinal(9.001), 3L)
  expect_identical(hasi_bsa_to_ordinal(19.999), 3L)
  expect_identical(hasi_bsa_to_ordinal(20.001), 4L)
  expect_identical(hasi_bsa_to_ordinal(28.999), 4L)
  expect_identical(hasi_bsa_to_ordinal(29.001), 5L)
  expect_identical(hasi_bsa_to_ordinal(49.999), 5L)
  expect_identical(hasi_bsa_to_ordinal(50.001), 6L)
})

test_that("Test for vector input", {
  expect_identical(
    hasi_bsa_to_ordinal(c(0, 2, 5, 12, 25, 40, 75)),
    c(0L, 1L, 2L, 3L, 4L, 5L, 6L)
  )
})

test_that("Test for invalid input", {
  # negative values
  expect_error(
    hasi_bsa_to_ordinal(-1),
    regexp = "Element 1 is not >= 0"
  )
  expect_error(
    hasi_bsa_to_ordinal(c(-1, 10)),
    regexp = "Element 1 is not >= 0"
  )

  # values over 100
  expect_error(
    hasi_bsa_to_ordinal(bsa_percent_within_site = 101),
    regexp = "Element 1 is not <= 100"
  )
  expect_error(
    hasi_bsa_to_ordinal(bsa_percent_within_site = c(50, 101)),
    regexp = "Element 2 is not <= 100"
  )
  # non-numeric input
  expect_error(
    hasi_bsa_to_ordinal("string"),
    regexp = "Must be of type 'numeric', not 'character'"
  )
  expect_error(
    hasi_bsa_to_ordinal(c("string", 10)),
    regexp = "Must be of type 'numeric', not 'character'"
  )

  # Multiple BSA types
  expect_error(
    hasi_bsa_to_ordinal(
      bsa_ordinal = 1,
      bsa_percent_within_site = 1,
      bodysite = "Right Axilla"
    ),
    regexp = "Multiple types of BSA values found"
  )
})

test_that("Test for NA values", {
  expect_error(hasi_bsa_to_ordinal(NA), regexp = "'x' must be numeric")
  expect_identical(hasi_bsa_to_ordinal(NA_real_), NA_integer_)
  expect_identical(hasi_bsa_to_ordinal(NA_integer_), NA_integer_)
})

test_that("Test for empty vector", {
  expect_identical(hasi_bsa_to_ordinal(numeric(0)), integer(0))
})