tests/testthat/test-server.R

In epiviz/epivizrServer: WebSocket server infrastructure for epivizr apps and packages

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