ex() %>% check_correct(
    check_object(., name = "sum_all") %>% check_equal(),
    check_function(state = ., name = "pmap") %>% {
        check_arg(state = ., arg = ".l") %>% check_equal()
        check_arg(state = ., arg = ".f") %>% check_equal()
    }
)

ex() %>% check_correct(
    check_output_expr(., expr = "class(sum_all)"),
    check_function(., "class") %>% check_arg("x") %>% check_equal()
)

success_msg("Congratulations! Now that we have seen the basics of iteration with `purrr`, let's
            dive into programming.")