tests/testthat/test-token_adding_removing.R

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

test_that("other manipulations are correct (add braces, semi-colon etc.)", {
  expect_warning(test_collection("token_adding_removing", "mixed_token",
    transformer = style_text
  ), NA)
})


test_that("braces in if-else clause are added correctly", {
  expect_warning(test_collection("token_adding_removing", "if_else_strict",
    transformer = style_text
  ), NA)
  expect_warning(test_collection("token_adding_removing", "if_else_non_strict",
    transformer = style_text, strict = FALSE
  ), NA)
  expect_warning(test_collection("token_adding_removing", "if-else-comma",
    transformer = style_text, strict = TRUE
  ), NA)
})

test_that("double braces are treated correctly", {
  expect_warning(test_collection("token_adding_removing", "double_braces",
    transformer = style_text
  ), NA)
})

test_that("double braces are treated correctly", {
  expect_warning(test_collection("token_adding_removing", "token_creation_find_pos",
    transformer = style_text
  ), NA)
})

test_that("braces only added to pipe if RHS is a symbol", {
  expect_warning(test_collection("token_adding_removing", "add_brackets_in_pipe",
    transformer = style_text
  ), NA)
})



test_that("No braces are added if conditional statement is within pipe", {
  expect_warning(test_collection("token_adding_removing", "else-pipe",
    transformer = style_text
  ), NA)
})

test_that("No brace is added within `substitute()`", {
  expect_warning(test_collection("token_adding_removing", "substitute",
    transformer = style_text
  ), NA)
})


test_that("stylreignore interacts correctly with wrap_expr_in_curly", {
  expect_warning(test_collection("token_adding_removing", "if_else_stylerignore",
    transformer = style_text
  ), NA)
})

test_that("stylreignore interacts correctly with wrap_expr_in_curly", {
  expect_warning(test_collection("token_adding_removing", "for_while_stylerignore",
    transformer = style_text
  ), NA)
})