Updated hpg function tests when deprecated "version = 'Y'" used.

fragla · Feb 4, 2025 · 2efe854 · 2efe854
1 parent e2f4a01
commit 2efe854
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-eqhpg.R b/tests/testthat/test-eqhpg.R
@@ -28,3 +28,8 @@ test_that("eq5dhpg using version='Y' is deprecated", {
   rlang::local_options(lifecycle_verbosity = "error")
   expect_error(hpg(pre, post, country = "Brazil", version="Y", type="CW", no.problems = F))
 })
+
+test_that("eq5d using version='Y' still works", {
+  rlang::local_options(lifecycle_verbosity = "quiet")
+  expect_equal(as.character(hpg(pre, post, country = "Brazil", version="Y", type="CW", no.problems = F)[2,]), c(158, 60, "Improve"))
+})