tests/testthat/test_gen_api.R

In CorrelAid/restatis: R Wrapper to Access a Wide Range of Germany's Federal Statistical System Databases Based on the GENESIS Web Service RESTful API of the German Federal Statistical Office (Statistisches Bundesamt/Destatis)

# Test for expected output & API calls------------------------------------------

test_that("We do make POST requests", {

  skip_on_cran()
  skip_on_ci()

  request <- restatis:::gen_api(endpoint = "helloworld/logincheck",
                                database = "genesis")

  expect_equal(request$url,
               "https://www-genesis.destatis.de/genesisWS/rest/2020/helloworld/logincheck")

  expect_equal(request$method,
               "POST")

})