make test-styler consistent with rest of tests.

Author: lorenzwalthert

tests/testthat/example/in.R tests/testthat/strict/non_strict-in.Rtests/testthat/example/in.R renamed to tests/testthat/strict/non_strict-in.R

@@ -0,0 +1,142 @@
+test <- function() {
+  "Double quotes remain as they are"
+  'Single quotes are converted to double quotes'
+  'even if the string contains an escaped \' single quote'
+  'but not if it contains a "double quote'
+
+  # Comments are always preserved
+
+  function_calls(get_spaces=around_equal)
+
+  no_space( after_opening( ), paren( (1 + 2)))
+  no_space (before_opening (), paren ( (1 + 2)))
+  no_space(before(closing ), paren((1 + 2) ) )
+  multi(
+    line,
+    call
+  )
+  multi_line_empty_call(
+  )
+
+  one_space(after,comma("in","function",  args))
+
+  {
+    braced
+    expression
+  }
+
+  braced("unnamed", {
+    "function"
+    call
+  })
+
+  braced(named = {
+    "function"
+    call
+  })
+
+  braced("unnamed reduces space",    {
+  })
+
+  braced("unnamed adds space space",{
+  })
+
+  braced(named_reduces_space =    {
+  })
+
+  braced(named_adds_space =    {
+  })
+
+  braced(  {
+    empty_removes_space
+  })
+
+  a%/%b
+  a%%b
+  a&&b
+  a||b
+  a==b
+  a!=b
+  a<=b
+  a>=b
+  a<-b
+  a->b
+  a=b
+  a<b
+  a>b
+  a*b
+  a/b
+  a^b
+  a&b
+  a|b
+  a:=b
+
+  a+b
+  a-b
+  a++b
+  a+-b
+  a++b
+  a-+b
+  a--b
+  a+--b
+  a--+b
+  call( + a)
+  call( - a)
+  call(5, + a)
+  call(5, - a)
+
+  # Only with conservative settings:
+  call(
+    preserves, distance,
+    after,     commas,
+    given_has,one
+  )
+
+  if(TRUE){
+    FALSE
+  }
+
+  if(TRUE){
+    FALSE
+  }else{
+    TRUE
+  }
+
+  while(TRUE){
+    FALSE
+  }
+
+  single_line ( "function" ,call )
+
+  multiline (
+  "function", call )
+
+  nested ( function_call ( "in" ,one ,line ) )
+
+  nested ( function_call (
+  "in",
+      multiple,lines ) )
+
+  nested(
+  function_call ( with ),
+      many
+  ,     first_level_args  )
+
+  nested(
+    function_call ( with ),  # a comment and
+    many #more
+    ,     first_level_args  )
+
+  difficult(nested(
+    "function", call
+  ),
+    with, more, args
+  )
+}
+
+
+# formula
+lm(a~b+c,data=NA)
+lm(a~.-1,data=NA)
+a~b:c
+a~b :c

tests/testthat/strict/non_strict-in_tree

@@ -0,0 +1,34 @@
+context("styler")
+
+test_that("can style example source file with strict = TRUE", {
+  expect_warning(test_collection(
+    "strict", "strict",
+    transformer = style_text,
+    strict = TRUE), NA)
+})
+
+test_that("can style example source file with strict = FALSE", {
+  expect_warning(test_collection(
+    "strict", "non_strict",
+    transformer = style_text,
+    strict = FALSE), NA)
+})
+
+test_that("removes space at EOL", {
+  expect_equal(style_text("a() "), "a()")
+  expect_equal(style_text("a() # comment "), "a() # comment")
+})
+
+test_that("removes blank lines at EOF", {
+  expect_equal(style_text(c("a() ", "", "")), "a()")
+})
+
+
+test_that("Space placed after 'if' and before '('", {
+  expect_equal(style_text(c("if(TRUE) x else y")), "if (TRUE) x else y")
+})
+
+test_that("space before comma is removed", {
+  expect_equal(style_text("c(    1,       16    , 333 , 33 ,  1)"),
+                          "c(1, 16, 333, 33, 1)")
+})