tests/testthat/test-multiple_expressions.R

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

library("testthat")


test_that("simple multiple expressions are styled correctly", {
  expect_warning(test_collection("multiple_expressions",
    "two_simple",
    transformer = style_text
  ), NA)
})

test_that("complex multiple expressions are styled correctly", {
  expect_warning(test_collection("multiple_expressions",
    "three_complex",
    transformer = style_text
  ), NA)
})