tests/testthat/test-server.R

In stencila/rasta: R interpreter for Stencila executable documents

context("server")

test_that("addresses() returns an empty list", {
  server <- Server$new()
  expect_equal(server$addresses(), list())
})

test_that("url() returns NULL", {
  server <- Server$new()
  expect_null(server$url())
})

test_that("receive() returns a response", {
  server <- Server$new()

  server$receive("malformed JSON", function(response) {
    expect_true(inherits(response, "JsonRpcResponse"))
    error <- response$error
    expect_equal(error$code, JsonRpcErrorCode$ParseError)
    expect_match(error$message, "Parse error: lexical error: invalid char in json text")
  })

  server$receive("{}", function(response) {
    expect_true(inherits(response, "JsonRpcResponse"))
    error <- response$error
    expect_equal(error$code, JsonRpcErrorCode$InvalidRequest)
    expect_equal(error$message, "Invalid request: missing property: \"method\"")
  })

  server$receive(list(method = "some_method"), function(response) {
    expect_true(inherits(response, "JsonRpcResponse"))
    error <- response$error
    expect_equal(error$code, JsonRpcErrorCode$ServerError)
    expect_equal(error$message, "No executor configured yet for this server")
  })
})

test_that("start() does not error", {
  server <- Server$new()
  expect_null(server$start(NULL))
})

test_that("stop() does not error", {
  server <- Server$new()
  expect_null(server$stop())
})