tests/testthat/test-strict.R

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

test_that("can style example source file with strict = TRUE", {
  expect_warning(test_collection(
    "strict", "strict",
    transformer = style_text,
    strict = TRUE
  ), NA)
})

test_that("can style example source file with strict = FALSE", {
  expect_warning(test_collection(
    "strict", "non_strict",
    transformer = style_text,
    strict = FALSE
  ), NA)
})

test_that("removes space at EOL", {
  expect_warning(test_collection(
    "strict", "eol",
    transformer = style_text,
    strict = FALSE
  ), NA)
})

test_that("removes blank lines at EOF", {
  expect_warning(test_collection(
    "strict", "eof",
    transformer = style_text,
    strict = FALSE
  ), NA)
})