tests/testthat/test-ipyToJson.R

In att/rcloud.jupyter.notebooks: Jupyter notebook support for RCloud

context("ipyToJson")

test_that("ipyToJson takes a JSON structure and converts to a notebook like list",{

  file <- "ipyOut.ipynb"
  file_path <- file.path(paste0("data/", file))

  json <- jsonlite::read_json(file_path)
  notebook <- ipyToJson(json, "ipynbOut.ipynb")

  expect_equal(class(notebook), "list")
  expect_equal(names(notebook), c("description", "files"))

})