Merge pull request #354 from r-lib/indent-eq-formal-tests

- Add tests from #353 (#354).

Author: lorenzwalthert

tests/testthat/fun_dec/fun_dec_scope_spaces-in.R

@@ -10,3 +10,18 @@ a <- function(x, #
 {
   x
 }
+
+function(a =
+           b,
+         c) {}
+
+function(a =
+           b,
+         c) {
+
+}
+
+function(a =
+           b,
+         c
+) {}

tests/testthat/fun_dec/fun_dec_scope_spaces-in_tree

@@ -10,3 +10,18 @@ a <- function(x, #
 {
   x
 }
+
+function(a =
+           b,
+         c) {}
+
+function(a =
+           b,
+         c) {
+
+}
+
+function(a =
+           b,
+         c
+) {}

tests/testthat/fun_dec/fun_dec_scope_spaces-out.R

@@ -13,6 +13,6 @@ a <- function(x, #
 
 a <- function(x, #
               y #
-            ) { # FIXME: Move to the same indention level as a
+            ) {
   y
 }

tests/testthat/fun_dec/line_break_fun_dec-in.R

@@ -12,6 +12,6 @@ a <- function(x, #
 
 a <- function(x, #
               y #
-            ) { # FIXME: Move to the same indention level as a
+            ) {
   y
 }

tests/testthat/fun_dec/line_break_fun_dec-in_tree

@@ -0,0 +1,8 @@
+abbbb <- function(x =
+                  22
+                  ) {
+  data_frame(
+    x =
+      long_long_long * x
+  )
+}

tests/testthat/fun_dec/line_break_fun_dec-out.R

@@ -0,0 +1,7 @@
+abbbb <- function(x =
+                  22) {
+  data_frame(
+    x =
+      long_long_long * x
+  )
+}

tests/testthat/indention_operators/eq_formal_simple-in.R

@@ -0,0 +1,33 @@
+function(a =
+33,
+  b
+  ) {}
+
+function(a =
+    33,
+  b  ) {}
+
+function(a ,
+    b,
+c
+  ) {}
+
+function(a,
+  b,
+c) {}
+
+function(ss,
+   a =
+3,
+   er =
+  4
+ ) {}
+
+function(a =
+           b,
+         f =
+           d, c =
+           3, d =
+           4) {
+
+}