tests/testthat/test-function-nextcloud_password.R

test_that("nextcloud_password() works", {

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

  expect_is(result, "character")
  expect_length(result, 1L)
  expect_true(nchar(result) > 0L)
})
KWB-R/kwb.nextcloud documentation built on Oct. 16, 2024, 11:18 p.m.