tests/testthat/test-line_breaks_fun_call.R

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

test_that("line breaks work in general", {
  expect_warning(test_collection("line_breaks_fun_call",
    "token_dependent_mixed",
    transformer = style_text
  ), NA)

  expect_warning(test_collection("line_breaks_fun_call",
    "token_dependent_complex_strict",
    transformer = style_text
  ), NA)
})

test_that("blank lines in function calls are removed for strict = TRUE", {
  expect_warning(test_collection("line_breaks_fun_call",
    "blank-strict",
    transformer = style_text
  ), NA)

  expect_warning(test_collection("line_breaks_fun_call",
    "blank-non-strict",
    transformer = style_text, strict = FALSE
  ), NA)
})


test_that("line breaks are not applied with non-strict", {
  expect_warning(test_collection("line_breaks_fun_call",
    "token_dependent_complex_non_strict",
    transformer = style_text, strict = FALSE
  ), NA)
})

test_that("line breaks work with comments", {
  expect_warning(test_collection("line_breaks_fun_call",
    "token_dependent_comments",
    transformer = style_text
  ), NA)
  expect_warning(test_collection("line_breaks_fun_call",
    "line_breaks_and_comments",
    transformer = style_text
  ), NA)
})

test_that("line breaks work with exceptions", {
  expect_warning(test_collection("line_breaks_fun_call",
    "switch_ifelse",
    transformer = style_text
  ), NA)
})

test_that("line breaks work with exceptions", {
  expect_warning(test_collection("line_breaks_fun_call",
    "named_arguments",
    transformer = style_text
  ), NA)
})

test_that("line breaks work with exceptions", {
  expect_warning(test_collection("line_breaks_fun_call",
    "unindent",
    transformer = style_text
  ), NA)
})