22
33test_that(" stops on failure" , {
44 withr :: local_envvar(c(
5- TESTTHAT_PARALLEL = " TRUE " ,
5+ TESTTHAT_PARALLEL = " FALSE " ,
66 TESTTHAT_GHA_SUMMARY = " FALSE"
77 ))
88 expect_error(
@@ -12,7 +12,7 @@ test_that("stops on failure", {
1212
1313test_that(" runs all tests and records output" , {
1414 withr :: local_envvar(c(
15- TESTTHAT_PARALLEL = " TRUE " ,
15+ TESTTHAT_PARALLEL = " FALSE " ,
1616 TESTTHAT_GHA_SUMMARY = " FALSE"
1717 ))
1818 res <- test_dir(test_path(" test_dir" ), reporter = " silent" , stop_on_failure = FALSE )
@@ -34,7 +34,7 @@ test_that("complains if no files", {
3434
3535test_that(" can control if failures generate errors" , {
3636 withr :: local_envvar(c(
37- TESTTHAT_PARALLEL = " TRUE " ,
37+ TESTTHAT_PARALLEL = " FALSE " ,
3838 TESTTHAT_GHA_SUMMARY = " FALSE"
3939 ))
4040 test_error <- function (... ) {
@@ -47,7 +47,7 @@ test_that("can control if failures generate errors", {
4747
4848test_that(" can control if warnings errors" , {
4949 withr :: local_envvar(c(
50- TESTTHAT_PARALLEL = " TRUE " ,
50+ TESTTHAT_PARALLEL = " FALSE " ,
5151 TESTTHAT_GHA_SUMMARY = " FALSE"
5252 ))
5353
@@ -63,7 +63,7 @@ test_that("can control if warnings errors", {
6363
6464test_that(" can test single file" , {
6565 withr :: local_envvar(c(
66- TESTTHAT_PARALLEL = " TRUE " ,
66+ TESTTHAT_PARALLEL = " FALSE " ,
6767 TESTTHAT_GHA_SUMMARY = " FALSE"
6868 ))
6969 out <- test_file(test_path(" test_dir/test-basic.R" ), reporter = " silent" )
0 commit comments