tests/testthat/test-function-nextcloud_user.R

test_that("nextcloud_user() works", {

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

  expect_is(result, "character")
  expect_length(result, 1L)
  expect_true(nchar(result) > 1L)
})
KWB-R/kwb.nextcloud documentation built on June 8, 2022, 10:21 a.m.