tests/testthat/test-detect-alignment.R

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

test_that("does apply spacing rules only if not aligned", {
  expect_warning(test_collection("alignment",
    transformer = style_text
  ), NA)

  text <- "tribble(\n  ~x, ~y,\n  11, list(a = 1),\n  2, list(bjj = 2)\n)"
  expect_warning(style_text(text), NA)
})