up tests

Author: krlmlr

tests/testthat/indention_multiple/overall-in.R

@@ -17,7 +17,7 @@ a <- function(x) {
   c(
     list(x + 2),
     c(c(
-      26 ^ 2, # FIXME ^ operator has to be surrounded by one space (or none?!), never multiple
+      26 ^ 2,
       8,
       7
   )))

tests/testthat/indention_multiple/overall-in_tree

@@ -17,7 +17,7 @@ a <- function(x) {
   c(
     list(x + 2),
     c(c(
-      26 ^ 2, # FIXME ^ operator has to be surrounded by one space (or none?!), never multiple
+      26^2,
       8,
       7
     ))

tests/testthat/indention_multiple/overall-out.R

@@ -1 +1 @@
-1 + +1   -       3 / 23 * 3 ^ 4
+1 + +1   -       3 / 23 * 3 ^4

tests/testthat/math_token_spacing/non_strict_math_spacing_all-out.R

@@ -1 +1 @@
-1 + +1 - 3 / 23 * 3 ^ 4
+1 + +1 - 3 / 23 * 3^4

tests/testthat/math_token_spacing/strict_math_spacing_all-out.R

@@ -65,7 +65,7 @@ test <- function() {
   a > b
   a * b
   a / b
-  a ^ b
+  a^b
   a & b
   a | b
   a := b

tests/testthat/strict/non_strict-out.R

@@ -65,7 +65,7 @@ test <- function() {
   a > b
   a * b
   a / b
-  a ^ b
+  a^b
   a & b
   a | b
   a := b

tests/testthat/strict/strict-out.R

@@ -42,7 +42,7 @@ if (TRUE)
 
 if (FALSE)
   1 + a * (31 / 2) else
-  3 ^ k
+  3^k
 
 
 if (TRUE)

tests/testthat/token_adding_removing/if_else_non_strict-out.R

@@ -47,7 +47,7 @@ if (TRUE) {
 if (FALSE) {
   1 + a * (31 / 2)
 } else {
-  3 ^ k
+  3^k
 }