tests/testthat/test_requests.R

In openvolley/fivbvis: Client for the FIVB VIS Web Service \url{https://www.fivb.org/VisSDK/VisWebService/}

context("General tests of requests")

test_that("huge xml option works", {
    req <- fivbvis:::v_request(type = "GetBeachTournamentList", fields = v_fields("Beach Tournament"))
    ## this request tends to give xml parse failures because the response is too deeply nested, so switch on the 'huge' xml parsing option
    expect_output(make_request(request = req, node_path = "//BeachTournament", huge = FALSE), "Huge input lookup")
    res <- make_request(request = req, node_path = "//BeachTournament", huge = TRUE)
    expect_gt(nrow(res), 0)
})