add tests

Author: lorenzwalthert

tests/testthat/line_breaks_fun_call/named_arguments-in.R

@@ -0,0 +1,18 @@
+call(3,
+     b = 2, c
+)
+
+gs(3, b = 2,
+   c)
+
+call(3, b = 2, c)
+
+map(data, fun,
+    x = 3, z = 33)
+
+map2(dat1, data2, fun, x, y,
+     z)
+
+map2(dat1, data2, fun, x = 1, y = 2,
+  z
+)

tests/testthat/line_breaks_fun_call/named_arguments-in_tree

@@ -0,0 +1,24 @@
+call(3,
+  b = 2, c
+)
+
+gs(3,
+  b = 2,
+  c
+)
+
+call(3, b = 2, c)
+
+map(data, fun,
+  x = 3, z = 33
+)
+
+map2(
+  dat1, data2, fun, x, y,
+  z
+)
+
+map2(dat1, data2, fun,
+  x = 1, y = 2,
+  z
+)

tests/testthat/line_breaks_fun_call/named_arguments-out.R

@@ -29,3 +29,9 @@ test_that("line breaks work with exceptions", {
                                  "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)
+})