vetr:::val_all(c(rep(TRUE, 5), NA, rep(TRUE, 5)))

capt_wo_time <- function(x) {
    txt <- capture.output(x)
    gsub("~ *-?[0-9.]*", "~", txt)
}

# three different time frames that should trigger all the code, need to remove
# the time piece so that the tests don't fail due to variations

Mean eval time from 1 iteration, in seconds:
Sys.sleep(1.2)  ~

[1] "Mean eval time from 1 iteration, in seconds:"
[2] "  Sys.sleep(1.2)  ~"

Mean eval time from 10 iterations, in milliseconds:
Sys.sleep(0.01)  ~

[1] "Mean eval time from 10 iterations, in milliseconds:"
[2] "  Sys.sleep(0.01)  ~"

capt_wo_time(bench_mark(1 + 1, NULL, times = 100))

Mean eval time from 100 iterations, in microseconds:

[1] "Mean eval time from 100 iterations, in microseconds:"
[2] "  1 + 1  ~"                                          
[3] "  NULL   ~"

vetr:::list_as_sorted_vec(pairlist(c = 1, a = list(), b = NULL))

vetr:::list_as_sorted_vec(pairlist(b = 1, 2, a = 3))

# # equal names not stable, but we should never hit this with attribute lists