test previously offending case.

Author: lorenzwalthert

tests/testthat/test-token_adding_removing.R

@@ -17,3 +17,8 @@ test_that("double braces are treated correctly", {
   expect_warning(test_collection("token_adding_removing", "double_braces",
                                  transformer = style_text), NA)
 })
+
+test_that("double braces are treated correctly", {
+  expect_warning(test_collection("token_adding_removing", "token_creation_find_pos",
+                                 transformer = style_text), NA)
+})

tests/testthat/token_adding_removing/token_creation_find_pos-in.R

@@ -0,0 +1,17 @@
+
+print_out <- function(x, ...) {
+  lines <- m(y, ..., print = TRUE)
+  paste(lines, sep = "\n")
+}
+
+# No comment
+
+kng <- function(x, y) spm(fmt = "%i", lgd(x), tds(y))
+tka <- function(my, y) ttt(gmks = "%s", slice(x), acast(d))
+
+another <- function(x, y) {
+  if (!fun(x) && !not_is(y)) {
+    return(s)
+  }
+  identical(kss(nmp), gsk(rdm))
+}

tests/testthat/token_adding_removing/token_creation_find_pos-in_tree

@@ -0,0 +1,17 @@
+
+print_out <- function(x, ...) {
+  lines <- m(y, ..., print = TRUE)
+  paste(lines, sep = "\n")
+}
+
+# No comment
+
+kng <- function(x, y) spm(fmt = "%i", lgd(x), tds(y))
+tka <- function(my, y) ttt(gmks = "%s", slice(x), acast(d))
+
+another <- function(x, y) {
+  if (!fun(x) && !not_is(y)) {
+    return(s)
+  }
+  identical(kss(nmp), gsk(rdm))
+}