tests/testthat/test-orderlyweb.R

In vimc/montagu-r: Interface with 'montagu'

context("orderlyweb")

test_that("montagu_orderlyweb_remote", {
  remote <- montagu_orderlyweb_remote(name = "remote", host = "localhost",
                                      port = 8888)
  expect_is(remote, "orderlyweb_remote")
  expect_true(orderly:::implements_remote(remote))

  token <- montagu_orderlyweb_token(remote)
  expect_true(is.function(token))
})