diff --git a/DESCRIPTION b/DESCRIPTION index 03cd5cc85..f72aa4364 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -67,6 +67,7 @@ Suggests: ggdist, kableExtra, knitr, + rlang, rmarkdown, testthat (>= 3.1.9), vdiffr diff --git a/tests/testthat/test-metrics-interval-range.R b/tests/testthat/test-metrics-interval-range.R index 5e69e4e53..dd24315d8 100644 --- a/tests/testthat/test-metrics-interval-range.R +++ b/tests/testthat/test-metrics-interval-range.R @@ -20,6 +20,7 @@ test_that("assert_input_interval() works as expected", { ) # expect warning if interval range is < 1 + rlang::reset_warning_verbosity("small_interval_range") expect_warning( assert_input_interval(observed, lower, upper, 0.5), "Found interval ranges between 0 and 1. Are you sure that's right?" @@ -27,6 +28,17 @@ test_that("assert_input_interval() works as expected", { }) +test_that("assert_input_interval() warns about small interval_range on repeated calls", { + rlang::reset_warning_verbosity("small_interval_range") + suppressWarnings(assert_input_interval(observed, lower, upper, 0.5)) + rlang::reset_warning_verbosity("small_interval_range") + expect_warning( + assert_input_interval(observed, lower, upper, 0.5), + "Found interval ranges between 0 and 1" + ) +}) + + test_that("check_input_interval() works as expected", { expect_no_condition( check_input_interval(observed, lower, upper, interval_range)