tests/testthat/test_meta_data_service.R

In GLOrozcoM/epair: EPA Data Helper for R

httptest::with_mock_dir("meta_revision_history_ok", {
  test_that("Successful status returned", {
    result <- get_revision_history()
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("meta_issues_ok", {
  test_that("Successful status returned", {
    result <- get_known_issues()
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("meta_fields_by_service_ok", {
  test_that("Successful status returned for present service", {
    service <- "list"
    result <- get_fields_by_service(service)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})