test for double braces

Author: lorenzwalthert

tests/testthat/test-token_adding_removing.R

@@ -9,9 +9,11 @@ test_that("other manipulations are correct (add braces, semi-colon etc.)", {
 test_that("braces in if-else clause are added correctly", {
   expect_warning(test_collection("token_adding_removing", "if_else_strict",
                                  transformer = style_text), NA)
-})
-
-test_that("braces in if-else clause are added correctly", {
   expect_warning(test_collection("token_adding_removing", "if_else_non_strict",
                                  transformer = style_text, strict = FALSE), NA)
 })
+
+test_that("double braces are treated correctly", {
+  expect_warning(test_collection("token_adding_removing", "double_braces",
+                                 transformer = style_text), NA)
+})

tests/testthat/token_adding_removing/double_braces-in.R

@@ -0,0 +1,4 @@
+if (X)
+  return(TRUE)
+
+if (X) return(FALSE)

tests/testthat/token_adding_removing/double_braces-in_tree

@@ -0,0 +1,5 @@
+if (X) {
+  return(TRUE)
+}
+
+if (X) return(FALSE)