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)
})