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 Oct. 16, 2024, 11:18 p.m.