Remove lines not relevant to shush() in test-utils.R

ropensci · May 23, 2021 · fbaf698 · fbaf698
1 parent ee974cf
commit fbaf698
Showing 1 changed file with 3 additions and 12 deletions.
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -227,24 +227,15 @@ test_that("inline_collapse() | general test", {
 })
 
 test_that("shush() | general test", {
-    x <- "test"
-    quiet <- FALSE
-    expect_equal(shush(x, quiet = quiet), x)
+    expect_equal(shush("test", quiet = FALSE), "test")
 
     test <- function() {
         warning("test", call. = FALSE)
         "test"
     }
 
-    quiet <- TRUE
-    expect_equal(shush(test(), quiet = quiet), "test")
-
-    quiet <- FALSE
-    expect_warning(shush(test(), quiet = quiet))
-
-    # Error test
-    expect_error(inline_collapse("", "", TRUE))
-    expect_error(inline_collapse("", TRUE, ""))
+    expect_equal(shush(test(), quiet = TRUE), "test")
+    expect_warning(shush(test(), quiet = FALSE))
 })
 
 test_that("close_round() | general test", {