test_that("multiplication works", { skip("TODO: Consistency for results and that all output formats are created correctly") session <- whirl_r_session$new() session session$log_script(script = "tests/testthat/scripts/success.R") session$create_log() session$create_outputs(out_dir = getwd(), format = "html") session$read() session session$get_wd() |> list.files() file.path(session$get_wd(), "objects.rds") |> readRDS() -> x str(x, 1) names(x) })