diff --git a/tests/testthat/test-options.R b/tests/testthat/test-options.R index e56a332d865ceaa1a6e5421e56633b97bc1998e4..dc5945baeefcc9cf31aa32e387837fcba6f6bea3 100644 --- a/tests/testthat/test-options.R +++ b/tests/testthat/test-options.R @@ -19,5 +19,9 @@ test_that("user options are not permanently changed by ecxsys()", { hormesis_concentration = 0.3 ) new_options <- options() - expect_identical(original_options, new_options) + + # When doing devtools::check() some additional options may get added while + # running the model. So limit the equality testing to the option names which + # were there originally. + expect_identical(original_options, new_options[names(original_options)]) })