Adapt tests

Author: krlmlr

tests/testthat/fun_dec/line_break_fun_dec-out.R

@@ -40,8 +40,9 @@ a <- function(x,
 }
 
 a <- function(
-    #
-    x,
-    y) {
+  #
+  x,
+  y
+) {
   x - 1
 }

tests/testthat/indention_operators/eq_formals_complex_indention-out.R

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

tests/testthat/indention_operators/eq_formals_complex_tokens-out.R

@@ -1,29 +1,34 @@
 function(
-    a =
-      33,
-    b) {}
+  a =
+    33,
+  b
+) {}
 
 function(
-    a =
-      33,
-    b) {}
+  a =
+    33,
+  b
+) {}
 
 function(
-    a,
-    b,
-    c) {}
+  a,
+  b,
+  c
+) {}
 
 function(
-    a,
-    b,
-    c) {}
+  a,
+  b,
+  c
+) {}
 
 function(
-    ss,
-    a =
-      3,
-    er =
-      4) {}
+  ss,
+  a =
+    3,
+  er =
+    4
+) {}
 
 function(a =
            b,

tests/testthat/indention_operators/eq_sub_complex_indention-out.R

@@ -10,8 +10,8 @@ b
 # multiple nested levels
 {
   v <- function(x =
-        122,
-      y) {
+      122,
+    y) {
   }
 }
 

tests/testthat/unindention/mixed-double-out.R

@@ -37,29 +37,33 @@ function(x,
 
 # double
 function(
-    x,
-    y) {
+  x,
+  y
+) {
   1
 }
 
 
 function(
-    x,
-    y,
-    k) {
+  x,
+  y,
+  k
+) {
   1
 }
 
 
 function(
-    x,
-    y) {
+  x,
+  y
+) {
   1
 }
 
 
 function(
-    x, y) {
+  x, y
+) {
   1
 }
 
@@ -72,23 +76,23 @@ function(x,
 
 # last brace
 function(
-    x, y) {
+  x, y) {
   NULL
 }
 
 function(
-    x, y) {
+  x, y) {
   NULL
 }
 
 function(
-    x,
-    y) {
+  x,
+  y) {
   NULL
 }
 
 function(
-    x,
-    y) {
+  x,
+  y) {
   NULL
 }