remove redundant encoding argument

Author: lorenzwalthert

R/testing-public-api.R

@@ -17,7 +17,7 @@
 #' how many characters the path of the temporary directory has.
 #' @importFrom utils capture.output
 #' @keywords internal
-catch_style_file_output <- function(file_in, encoding) {
+catch_style_file_output <- function(file_in) {
   file_in <- testthat_file(file_in)
   temp_path <- copy_to_tempdir(file_in)
   raw_output <- withr::with_dir(

man/catch_style_file_output.Rd

@@ -157,7 +157,7 @@ test_that("messages (via cat()) of style_file are correct", {
           "public-api",
           "xyzdir-dirty",
           "dirty-sample-with-scope-tokens.R"
-        ), encoding = encoding)
+        ))
         expect_known_value(
           output,
           testthat_file(paste0(
@@ -170,7 +170,7 @@ test_that("messages (via cat()) of style_file are correct", {
         # No message if scope > line_breaks and code does not change
         output <- catch_style_file_output(file.path(
           "public-api", "xyzdir-dirty", "clean-sample-with-scope-tokens.R"
-        ), encoding = encoding)
+        ))
         expect_known_value(
           output,
           testthat_file(paste0(
@@ -183,7 +183,7 @@ test_that("messages (via cat()) of style_file are correct", {
         # No message if scope <= line_breaks even if code is changed.
         output <- catch_style_file_output(file.path(
           "public-api", "xyzdir-dirty", "dirty-sample-with-scope-spaces.R"
-        ), encoding = encoding)
+        ))
         expect_known_value(
           output,
           testthat_file(paste0(
@@ -198,17 +198,15 @@ test_that("messages (via cat()) of style_file are correct", {
 })
 
 test_that("Messages can be suppressed", {
-  for (encoding in ls_testable_encodings()) {
     withr::with_options(
-      list(cli.unicode = encoding == "utf8", styler.quiet = TRUE),
+      list(styler.quiet = TRUE),
       {
         output <- catch_style_file_output(file.path(
           "public-api", "xyzdir-dirty", "dirty-sample-with-scope-spaces.R"
-        ), encoding = encoding)
+        ))
         expect_equal(output, character(0))
       }
     )
-  }
 })
 
 context("public API - Rmd in style_dir()")