must deactivate cache also for external process

lorenzwalthert · lorenzwalthert · commit bed716973c07 · 2021-09-11T20:55:14.000+02:00
diff --git a/tests/testthat/test-parsing.R b/tests/testthat/test-parsing.R
@@ -18,7 +18,7 @@ test_that("repreated parsing solves wrong parent assignment", {
   file.copy(path_perm, dir)
 
   sys_call <- paste0(
-    "R -q -e \"styler::style_file(\\\"", path_temp, "\\\")\""
+    "R -q -e \"styler::cache_deactivate(); styler::style_file(\\\"", path_temp, "\\\")\""
   )
   calls_sys(sys_call, intern = FALSE, ignore.stdout = TRUE, ignore.stderr = TRUE)
   ref <- xfun::read_utf8(testthat_file("parsing", "repeated_parsing-out.R"))

Original file line number	Diff line number	Diff line change
`@@ -18,7 +18,7 @@ test_that("repreated parsing solves wrong parent assignment", {`
`18`	`18`	`file.copy(path_perm, dir)`
`19`	`19`
`20`	`20`	`sys_call <- paste0(`
`21`		`- "R -q -e \"styler::style_file(\\\"", path_temp, "\\\")\""`
	`21`	`+ "R -q -e \"styler::cache_deactivate(); styler::style_file(\\\"", path_temp, "\\\")\""`
`22`	`22`	`)`
`23`	`23`	`calls_sys(sys_call, intern = FALSE, ignore.stdout = TRUE, ignore.stderr = TRUE)`
`24`	`24`	`ref <- xfun::read_utf8(testthat_file("parsing", "repeated_parsing-out.R"))`