Remove unused variable

DavisVaughan · DavisVaughan · commit a9d4463702d0 · 2026-01-21T15:25:54.000-05:00
diff --git a/R/test-compiled-code.R b/R/test-compiled-code.R
@@ -49,14 +49,12 @@ run_cpp_tests <- function(package) {
   run_testthat_tests <- get_routine(package, "run_testthat_tests")
 
   output <- ""
-  tests_passed <- TRUE
-
   catch_error <- NULL
 
   tryCatch(
     {
       output <- capture_output_lines(
-        tests_passed <- .Call(run_testthat_tests, TRUE)
+        .Call(run_testthat_tests, TRUE)
       )
     },
     error = function(e) {

Original file line number	Diff line number	Diff line change
`@@ -49,14 +49,12 @@ run_cpp_tests <- function(package) {`
`49`	`49`	`run_testthat_tests <- get_routine(package, "run_testthat_tests")`
`50`	`50`
`51`	`51`	`output <- ""`
`52`		`- tests_passed <- TRUE`
`53`		`-`
`54`	`52`	`catch_error <- NULL`
`55`	`53`
`56`	`54`	`tryCatch(`
`57`	`55`	`{`
`58`	`56`	`output <- capture_output_lines(`
`59`		`- tests_passed <- .Call(run_testthat_tests, TRUE)`
	`57`	`+ .Call(run_testthat_tests, TRUE)`
`60`	`58`	`)`
`61`	`59`	`},`
`62`	`60`	`error = function(e) {`