correct non-strict mode test

IndrajeetPatil · IndrajeetPatil · commit 784803915e31 · 2024-12-03T17:34:16.000+03:00
diff --git a/tests/testthat/line_breaks_top_level_exprs/non_strict-out.R b/tests/testthat/line_breaks_top_level_exprs/non_strict-out.R
@@ -1,12 +1,23 @@
 f <- function() NULL
 
 
+
+
+
+
+
+
 g <- function() NULL
 
 
+
+
 f()
 
 # comment
 
 
+
+
+
 g()
diff --git a/tests/testthat/test-line_breaks_top_level_exprs.R b/tests/testthat/test-line_breaks_top_level_exprs.R
@@ -24,7 +24,7 @@ test_that("extra line breaks between braced expressions are removed", {
 
 test_that("extra line breaks are not removed in non-strict mode", {
   expect_no_warning(
-    test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text)
+    test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text, strict = FALSE)
   )
 })
 

Original file line number	Diff line number	Diff line change
`@@ -24,7 +24,7 @@ test_that("extra line breaks between braced expressions are removed", {`
`24`	`24`
`25`	`25`	`test_that("extra line breaks are not removed in non-strict mode", {`
`26`	`26`	`expect_no_warning(`
`27`		`- test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text)`
	`27`	`+ test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text, strict = FALSE)`
`28`	`28`	`)`
`29`	`29`	`})`
`30`	`30`