diff --git a/tests/testthat/test-chop.R b/tests/testthat/test-chop.R index 42eaa9f..20188b8 100644 --- a/tests/testthat/test-chop.R +++ b/tests/testthat/test-chop.R @@ -17,8 +17,6 @@ test_that("basic functionality", { chop(x, rc_brks, lbl_seq("1"), extend = FALSE), factor(c(1, 2, 2)) ) - - }) diff --git a/tests/testthat/test-nonstandard.R b/tests/testthat/test-nonstandard.R index 4426c39..d00d11b 100644 --- a/tests/testthat/test-nonstandard.R +++ b/tests/testthat/test-nonstandard.R @@ -7,11 +7,10 @@ test_that("character", { chop(x, br) ) - oo <- options(santoku.warn_character = FALSE) - on.exit(options(oo)) - - expect_silent( - chop(x, br) + withr::with_options(list(santoku.warn_character = FALSE), + expect_silent( + chop(x, br) + ) ) # here, we think there should *always* be a warning