create a new test collection instead of modifying existing tests

tests/testthat/line_breaks_and_other/curly-in.R

@@ -59,12 +59,3 @@ while (TRUE){
 
 while (TRUE){#
  }
-
-
-for (i in 1:10) {}
-
-
-
-
-
-while (TRUE) {}

tests/testthat/line_breaks_and_other/curly-out.R

@@ -53,9 +53,3 @@ while (TRUE) {
 
 while (TRUE) { #
 }
-
-
-for (i in 1:10) {}
-
-
-while (TRUE) {}

tests/testthat/line_breaks_and_other/pipe_and_comment-in.R

@@ -1,22 +1,2 @@
 1:10 %>% # sum
   sum()
-
-
-f %>% g()
-
-
-
-
-
-h %>% i()
-
-
-
-
-
-# some comment
-
-
-
-
-j %>% k()

tests/testthat/line_breaks_and_other/pipe_and_comment-out.R

@@ -1,14 +1,2 @@
 1:10 %>% # sum
   sum()
-
-
-f %>% g()
-
-
-h %>% i()
-
-
-# some comment
-
-
-j %>% k()

tests/testthat/line_breaks_fun_call/blank-non-strict-in.R

@@ -10,10 +10,6 @@ call(
   1
 )
 
-
-
-
-
 call(
   x = 2,
   1,

tests/testthat/line_breaks_fun_call/blank-non-strict-out.R

@@ -8,10 +8,6 @@ call(
   1
 )
 
-
-
-
-
 call(
   x = 2,
   1,

tests/testthat/line_breaks_top_level_exprs/braces-in.R

@@ -0,0 +1,16 @@
+{
+  1 + 1
+}
+
+
+
+
+
+### some comment
+
+
+
+
+{
+  NULL
+}

tests/testthat/line_breaks_top_level_exprs/braces-out.R

@@ -0,0 +1,11 @@
+{
+  1 + 1
+}
+
+
+### some comment
+
+
+{
+  NULL
+}

tests/testthat/line_breaks_top_level_exprs/conditionals-in.R

@@ -0,0 +1,20 @@
+for (i in 1:10) {}
+
+
+
+
+
+
+# some comment
+
+
+
+
+
+while (TRUE) {}
+
+
+
+
+# some comment
+if (TRUE) NULL

tests/testthat/line_breaks_top_level_exprs/conditionals-out.R

@@ -0,0 +1,11 @@
+for (i in 1:10) {}
+
+
+# some comment
+
+
+while (TRUE) {}
+
+
+# some comment
+if (TRUE) NULL

tests/testthat/line_breaks_top_level_exprs/function_defs_and_calls-in.R

@@ -0,0 +1,23 @@
+f <- function() NULL
+
+
+
+
+
+
+
+
+g <- function() NULL
+
+
+
+
+f()
+
+# comment
+
+
+
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/function_defs_and_calls-out.R

@@ -0,0 +1,12 @@
+f <- function() NULL
+
+
+g <- function() NULL
+
+
+f()
+
+# comment
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/non_strict-in.R

@@ -0,0 +1,23 @@
+f <- function() NULL
+
+
+
+
+
+
+
+
+g <- function() NULL
+
+
+
+
+f()
+
+# comment
+
+
+
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/non_strict-out.R

@@ -0,0 +1,12 @@
+f <- function() NULL
+
+
+g <- function() NULL
+
+
+f()
+
+# comment
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/piped_chains-in.R

@@ -0,0 +1,21 @@
+
+
+f %>% g()
+
+
+
+
+
+
+h %>% i()
+
+
+
+
+
+# some comment
+
+
+
+
+j %>% k()

tests/testthat/line_breaks_top_level_exprs/piped_chains-out.R

@@ -0,0 +1,10 @@
+f %>% g()
+
+
+h %>% i()
+
+
+# some comment
+
+
+j %>% k()

tests/testthat/test-line_breaks_top_level_exprs.R

@@ -0,0 +1,30 @@
+test_that("extra line breaks between conditional statements are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "conditionals", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between function and definitions and calls are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "function_defs_and_calls", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between piped chains are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "piped_chains", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between braced expressions are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "braces", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks are not removed in non-strict mode", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text)
+  )
+})
+

tests/testthat/test-transformers-drop.R

@@ -72,7 +72,7 @@ test_that("tidyverse transformers are correctly dropped", {
 
   names_line_break <- c(
     "remove_empty_lines_after_opening_and_before_closing_braces",
-    "set_line_breaks_between_top_level_exprs ",
+    "set_line_breaks_between_top_level_exprs",
     "set_line_break_around_comma_and_or",
     "set_line_break_after_assignment",
     "set_line_break_after_opening_if_call_is_multi_line",