don't set default argument explicitly

Author: lorenzwalthert

tests/testthat/test-curly-curly.R

@@ -3,7 +3,6 @@ context("curly-curly")
 test_that("curly-culry", {
   expect_warning(test_collection("curly-curly",
     "mixed",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })

tests/testthat/test-escaping.R

@@ -1,6 +1,5 @@
 test_that("escaping of characters works", {
   expect_warning(test_collection("escaping",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), "macro '")
 })

tests/testthat/test-indention_multiple.R

@@ -33,16 +33,14 @@ test_that("multiple curly and round brackets don't cause extraindention", {
 test_that("multiple curly and round brackets overall test", {
   expect_warning(test_collection("indention_multiple",
     "overall",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })
 
 test_that("if and ifelse interacting with curly braces works", {
   expect_warning(test_collection("indention_multiple",
     "if_else_curly",
-    transformer = style_text,
-    write_back = TRUE, strict = FALSE
+    transformer = style_text, strict = FALSE
   ), NA)
 })
 

tests/testthat/test-indention_operators.R

@@ -3,8 +3,7 @@ context("indention operators")
 test_that("pipe is indended correctly", {
   expect_warning(test_collection("indention_operators",
     "pipe",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })
 

tests/testthat/test-parse_comments.R

@@ -36,8 +36,7 @@ test_that("comments are treated corectly", {
 
   expect_warning(test_collection("parse_comments",
     "with_indention",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })
 

tests/testthat/test-serialize_tests.R

@@ -9,8 +9,7 @@ test_that("No files to compare returns error", {
 test_that("properly detects non-match", {
   expect_warning(
     test_collection("serialize_tests", "k3",
-      transformer = identity,
-      write_back = FALSE
+      transformer = identity
     ),
     "different"
   )

tests/testthat/test-start_line.R

@@ -2,6 +2,6 @@ context("start token")
 
 test_that("leading spaces are preserved at start of text", {
   expect_warning(test_collection("start_line",
-    transformer = style_empty, write_back = TRUE
+    transformer = style_empty
   ), NA)
 })

tests/testthat/test-unindention.R

@@ -3,16 +3,14 @@ context("unindention")
 test_that("round brackets are unindented correctly", {
   expect_warning(test_collection("unindention",
     "mixed",
-    transformer = style_text_without_curly_curly,
-    write_back = TRUE
+    transformer = style_text_without_curly_curly
   ), NA)
 })
 
 test_that("tokens are not dropped in named vector", {
   expect_warning(test_collection("unindention",
     "vec",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })
 
@@ -23,7 +21,6 @@ test_that(paste(
 ), {
   expect_warning(test_collection("unindention",
     "vec",
-    transformer = style_text,
-    write_back = TRUE
+    transformer = style_text
   ), NA)
 })