tests/testthat/test-client.R

In Open-EO/openeo-r-client: Client Interface for 'openEO' Servers

test_that("connect with invalid url fails when setting via initialization", {
  x = openeo:::OpenEOClient$new(host = "example.foo")
  
  expect_error(x$connect())
})

test_that("connect with missing url fails when setting via initialization", {
  x = openeo:::OpenEOClient$new(host = NULL)
  expect_message(x$connect(),regexp = "Host-URL is missing")
})

test_that("connect with valid url", {
  skip_if_offline()
  x = openeo:::OpenEOClient$new(host = "https://openeo.cloud")
  
  con = x$connect()
  expect(TRUE,failure_message = "connecting got an error")
})