tests/testthat/test-function-request_body_list_files.R

In KWB-R/kwb.nextcloud: R Package for Accessing Nextcloud Using WebDAV API

#
# This test file has been generated by kwb.test::create_test_files()
# launched by user micha on 2020-06-03 23:21:54.
# Your are strongly encouraged to modify the dummy functions
# so that real cases are tested. You should then delete this comment.
#

test_that("request_body_list_files() works", {

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

  expect_is(result, "character")
  expect_length(result, 1L)
  expect_true(startsWith(result, "<?xml version"))
  expect_true(endsWith(result, "/d:propfind>"))
})