tests/testthat/test-server.R

context("server")

test_that("non-daemonized constructor creates a proper object", {
  server <- createServer(port=7123L, daemonized=FALSE, verbose=TRUE)
  expect_is(server, "EpivizServer")
  expect_true(server$is_closed())
  expect_false(server$is_daemonized())
})

test_that("daemonized constructor creates a proper object", {
  skip_on_os("windows")
  
  server <- createServer(port=7123L, daemonized=TRUE, verbose=TRUE)
  expect_is(server, "EpivizServer")
  expect_true(server$is_closed())
  expect_true(server$is_daemonized())
})

test_that("non-daemonized start_server and stop_server work appropriately", {
  server <- createServer(port=7123L, daemonized=FALSE, verbose=TRUE)
  expect_true(server$is_closed())
  
  server$start_server()
  on.exit(server$stop_server())
  expect_false(server$is_closed())
  expect_false(server$is_daemonized())
})

test_that("daemonized startServer and stopServer work appropriately", {
  skip_on_os("windows")
  
  server <- createServer(port=7123L, daemonized=TRUE, verbose=TRUE)
  expect_true(server$is_closed())
  
  server$start_server()
  on.exit(server$stop_server())
  expect_false(server$is_closed())
  expect_true(server$is_daemonized())
})

test_that("using a port again is an error", {
  server <- createServer(port=7123L, daemonized=FALSE)
  server$start_server()
  on.exit(server$stop_server())
  server2 <- EpivizServer$new(port=7123L, daemonized=FALSE)
  expect_error(server2$start_server())
})

test_that("try_ports works", {
  server <- createServer(port=7123L, daemonized=FALSE)
  server$start_server()
  on.exit(server$stop_server())
  
  expect_false(server$is_closed())
  
  server2 <- createServer(port=7123L, daemonized=FALSE, try_ports=TRUE)
  server2$start_server()
  on.exit(server2$stop_server())
  expect_false(server2$is_closed())
})

Try the epivizrServer package in your browser

Any scripts or data that you put into this service are public.

epivizrServer documentation built on Nov. 8, 2020, 11 p.m.