Why is `test_that()` unable to find the specified variable?

Question

In my R package, there is a line of code that goes something like this:

fun <- function(expr, special_env) {
     eval(expr, envir = special_env, enclos = pare