Tweak test

hughjonesd · Jun 10, 2024 · f7f3a11 · f7f3a11
1 parent 629e50f
commit f7f3a11
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git 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
@@ -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