tests/testthat/test-factor_geboes_score.R

In geboes.score: Evaluate the Geboes Score for Histology in Ulcerative Colitis

test_that("levels_geboes_score", {
  expect_equal(
    levels_geboes_score(),
    as.character(geboes.score::geboes_grades$grade)
  )
  expect_equal(
    levels_geboes_score(drop_0 = TRUE),
    grep(x = geboes.score::geboes_grades$grade, pattern = "^[1-5][AB]?\\.0$", invert = TRUE, value = TRUE)
  )
})

test_that("factor_geboes_score", {
  expect_s3_class(factor_geboes_score("0.0"), "factor")
  expect_equal(
    factor_geboes_score("1.0"),
    factor("1.0", levels = geboes.score::geboes_grades$grade, ordered = TRUE)
  )
  expect_equal(
    factor_geboes_score("1.0", drop_0 = TRUE),
    factor("0.0", levels = levels_geboes_score(drop_0 = TRUE), ordered = TRUE)
  )
})