add tests with pipes

Author: IndrajeetPatil

tests/testthat/line_breaks_and_other/base-pipe-line-breaks-in.R

@@ -82,6 +82,18 @@ blew(y = 2, x |>
 
 {a |> c() +1}
 
+{
+
+  (
+
+    # some comment
+
+    a |> c() + 1
+
+  )
+
+}
+
 b |>
   f() |> # never move comment to next line as it can be styler: off or nolint
   k() |>

tests/testthat/line_breaks_and_other/base-pipe-line-breaks-in_tree

@@ -88,6 +88,14 @@ blew(y = 2, x |>
   a |> c() + 1
 }
 
+{
+  (
+    # some comment
+
+    a |> c() + 1
+  )
+}
+
 b |>
   f() |> # never move comment to next line as it can be styler: off or nolint
   k() |>

tests/testthat/line_breaks_and_other/base-pipe-line-breaks-out.R

@@ -18,3 +18,14 @@ mpg %>%
 , avg_hwy = mean(hwy)
 , n = n()
 , n_class = n_distinct(class))
+
+
+1:4 %>% {
+
+
+    (
+
+        . + 1
+    )
+
+}

tests/testthat/line_breaks_and_other/comma-in.R

@@ -21,3 +21,11 @@ mpg %>%
     n = n(),
     n_class = n_distinct(class)
   )
+
+
+1:4 %>%
+  {
+    (
+      . + 1
+    )
+  }