tests/testthat/test-function-request_body.R

test_that("request_body() works", {

  result <- kwb.nextcloud:::request_body()

  expect_true(startsWith(result, "<?xml version"))
  expect_true(endsWith(result, " ?>"))
})
KWB-R/kwb.nextcloud documentation built on June 8, 2022, 10:21 a.m.