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)])
 })