add a test for the warning

glmgen · Nov 5, 2024 · 1391c95 · 1391c95
1 parent ae1c40e
commit 1391c95
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test-tvdenoising.R b/tests/testthat/test-tvdenoising.R
@@ -24,6 +24,8 @@ test_that("tvdenoising works correctly with no weights", {
   expect_type(result, "double")
   expect_length(result, length(y))
   expect_equal(result, expected_result)
+  expect_warning(result2 <- tvdenoising(y, lambda, 2))
+  expect_equal(result2, expected_result)
 })
 
 test_that("tvdenoising works correctly with weights", {