tests/testthat/test.ping.R

context("Ping the server")

server <- set.server()

test_that("Server is live", {
  res <- ping(server)
  expect_equal(res$request, "ping")
  expect_equal(res$response, "pong")
})
PecanProject/rpecanapi documentation built on April 2, 2024, 8:17 a.m.