tests/testthat/test-function-nextcloud_auth.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:57.
# Your are strongly encouraged to modify the dummy functions
# so that real cases are tested. You should then delete this comment.
#

test_that("nextcloud_auth() works", {

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

  expect_is(result, "request")
  expect_identical(result$options$httpauth, 1)
})