[R-pkg-team] Bug#912004: r-cran-rlang: autopkgtest regression

[Graham Inggs]

Control: reopen -1

Now fails with the following:

 > test_check("rlang")
── 1. Error: env_binding_type_sum() detects types 
(@test-env-binding.R#210)  ───
no applicable method for 'type_sum' applied to an object of class 
"character"
1: expect_identical(env_binding_type_sum(env), types) at 
testthat/test-env-binding.R:210
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: env_binding_type_sum(env)
5: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
6: map_mold(.x, .f, character(1), ...)
7: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
8: FUN(X[[i]], ...)

── 2. Error: env_print() has flexible input (@test-env.R#250) 
─────────────────
no applicable method for 'type_sum' applied to an object of class "function"
1: expect_output(env_print(f), "environment: ") at testthat/test-env.R:250
2: quasi_capture(enquo(object), capture_output, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: capture_output_lines(code, print, width = width)
5: eval_with_output(code, print = print, width = width)
6: withr::with_output_sink(temp, withVisible(code))
7: force(code)
8: withVisible(code)
9: eval_bare(get_expr(quo), get_env(quo))
10: env_print(f)
11: env_binding_type_sum(env, nms)
12: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
13: map_mold(.x, .f, character(1), ...)
14: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
15: FUN(X[[i]], ...)

── 3. Error: locked bindings are pretty-printed (@test-env.R#270) 
─────────────
no applicable method for 'type_sum' applied to an object of class 
"c('double', 'numeric')"
1: expect_output(env_print(env), "a: <dbl> \\[L\\].*b: <dbl>") at 
testthat/test-env.R:270
2: quasi_capture(enquo(object), capture_output, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: capture_output_lines(code, print, width = width)
5: eval_with_output(code, print = print, width = width)
6: withr::with_output_sink(temp, withVisible(code))
7: force(code)
8: withVisible(code)
9: eval_bare(get_expr(quo), get_env(quo))
10: env_print(env)
11: env_binding_type_sum(env, nms)
12: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
13: map_mold(.x, .f, character(1), ...)
14: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
15: FUN(X[[i]], ...)

── 4. Error: large environments are truncated (@test-env.R#276) 
───────────────
no applicable method for 'type_sum' applied to an object of class "function"
1: expect_output(env_print(base_env()), expected) at testthat/test-env.R:276
2: quasi_capture(enquo(object), capture_output, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: capture_output_lines(code, print, width = width)
5: eval_with_output(code, print = print, width = width)
6: withr::with_output_sink(temp, withVisible(code))
7: force(code)
8: withVisible(code)
9: eval_bare(get_expr(quo), get_env(quo))
10: env_print(base_env())
11: env_binding_type_sum(env, nms)
12: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
13: map_mold(.x, .f, character(1), ...)
14: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
15: FUN(X[[i]], ...)

── 5. Error: special names are backticked (@test-env.R#281) 
───────────────────
no applicable method for 'type_sum' applied to an object of class 
"c('double', 'numeric')"
1: expect_output(env_print(env), "`:`:") at testthat/test-env.R:281
2: quasi_capture(enquo(object), capture_output, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: capture_output_lines(code, print, width = width)
5: eval_with_output(code, print = print, width = width)
6: withr::with_output_sink(temp, withVisible(code))
7: force(code)
8: withVisible(code)
9: eval_bare(get_expr(quo), get_env(quo))
10: env_print(env)
11: env_binding_type_sum(env, nms)
12: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
13: map_mold(.x, .f, character(1), ...)
14: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
15: FUN(X[[i]], ...)

── 6. Error: can print environment containing missing argument 
(@test-env.R#327)
no applicable method for 'type_sum' applied to an object of class "name"
1: expect_output(env_print(env), "x: <missing>") at testthat/test-env.R:327
2: quasi_capture(enquo(object), capture_output, label = label)
3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
4: capture_output_lines(code, print, width = width)
5: eval_with_output(code, print = print, width = width)
6: withr::with_output_sink(temp, withVisible(code))
7: force(code)
8: withVisible(code)
9: eval_bare(get_expr(quo), get_env(quo))
10: env_print(env)
11: env_binding_type_sum(env, nms)
12: map_chr(env_get_list(env, nms[other]), rlang_type_sum)
13: map_mold(.x, .f, character(1), ...)
14: vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
15: FUN(X[[i]], ...)

══ testthat results 
═══════════════════════════════════════════════════════════
OK: 2306 SKIPPED: 10 FAILED: 6
1. Error: env_binding_type_sum() detects types (@test-env-binding.R#210)
2. Error: env_print() has flexible input (@test-env.R#250)
3. Error: locked bindings are pretty-printed (@test-env.R#270)
4. Error: large environments are truncated (@test-env.R#276)
5. Error: special names are backticked (@test-env.R#281)
6. Error: can print environment containing missing argument 
(@test-env.R#327)

Error: testthat unit tests failed