tests/testthat/test-io.R

In krlmlr/styler: Non-Invasive Pretty Printing of R Code

test_that("non-ASCII characters are handled properly for text styling", {
  expect_equal(
    style_text("glück <-3") %>% unclass(), "glück <- 3"
  )
})


test_that("non-ASCII characters are handled properly for file styling", {
  # to avoid warnings
  #  on unix: 'OS reports request to set locale to "English_United States.1252" cannot be honored'
  #  on win: 'using locale code page other than 65001 ("UTF-8") may cause problems'
  withr::local_options(list(warn = -1L))
  withr::with_locale(
    c(LC_CTYPE = "English_United States.1252"),
    {
      tmp <- tempfile(fileext = ".R")
      con <- file(tmp, encoding = "UTF-8")
      on.exit(close(con), add = TRUE)

      # c.f. dplyr's tests/testthat/helper-encoding.R
      writeLines("Gl\u00fcck+1", con)

      style_file(tmp)
      result <- readLines(con)
      expect_equal(result, "Gl\u00fcck + 1")
    }
  )
})

test_that("empty files are converted to zero-bite files", {
  local_test_setup()
  for (file_content in list(character(), "", c("", ""))) {
    tmp <- tempfile(fileext = ".R")
    write_utf8(file_content, tmp)
    suppressWarnings(style_file(tmp))
    expect_true(file.size(tmp) == 0)
  }
})