tests/testthat/placeholder.R

In lanceupton/sillyR: lancer

library(lancer)

# TODO: Implement tests
# Below are sample tests from golem:
#
# test_that("multiplication works", {
#   expect_equal(2 * 2, 4)
# })
#
# test_that("app ui", {
#   ui <- app_ui()
#   expect_shinytaglist(ui)
# })
#
# test_that("app server", {
#   server <- app_server
#   expect_is(server, "function")
# })
#
# # Configure this test to fit your need
# test_that(
#   "app launches",{
#     skip_on_cran()
#     skip_on_travis()
#     skip_on_appveyor()
#     x <- processx::process$new(
#       "R",
#       c(
#         "-e",
#         "setwd('../../'); pkgload::load_all();run_app()"
#       )
#     )
#     Sys.sleep(5)
#     expect_true(x$is_alive())
#     x$kill()
#   }
# )