tests/testthat/test-create_package_json.R

context("test-create_package_json")


temp <- file.path(tempdir(), "deletemetesting")

if(!dir.exists(temp)) {
  dir.create(temp)
}

if(file.exists(file.path(temp, "package.json"))) {
  file.remove(file.path(temp, "package.json"))
}


test_that("run_shiny returns message", {
  expect_message(electricShine::create_package_json(app_name = "MyApp",
                                                    description = "description",
                                                    semantic_version = "0.0.0",
                                                    app_root_path = temp,
                                                    repository = "",
                                                    author = "",
                                                    copyright_year = "",
                                                    copyright_name = "",
                                                    website = "",
                                                    license = "",
                                                    deps = NULL))

})

#need to revise to allow for changing dependencies
chasemc/electricShine documentation built on Oct. 12, 2022, 8:50 a.m.