tests/testthat/test-stdio-server.R

In stencila/rasta: R interpreter for Stencila executable documents

context("stdio-server")

test_that("url() return a URL starting with stdio://", {
  server <- StdioServer$new()
  expect_match(server$url(), "stdio://")
})