add tests

Author: lorenzwalthert

tests/testthat/test-tidyeval.R

@@ -9,3 +9,8 @@ test_that(":= has correct spacing", {
   expect_warning(test_collection("tidyeval", "setting_var",
                                  transformer = style_text), NA)
 })
+
+test_that("Space before comma if preceding token is EQ_SUB", {
+  expect_warning(test_collection("tidyeval", "eq_sub",
+                                 transformer = style_text), NA)
+})

tests/testthat/tidyeval/eq_sub_and_comma-in.R

@@ -0,0 +1,6 @@
+a <- function() {
+  data_frame(
+    b =,
+    c =,
+  )
+}

tests/testthat/tidyeval/eq_sub_and_comma-in_tree

@@ -0,0 +1,6 @@
+a <- function() {
+  data_frame(
+    b = ,
+    c = ,
+  )
+}