tests/testthat/test-gen_passwd.R

In luciorq/luciolib:

testthat::test_that("Generated password is valid", {
  # all upper
  test_string <- "ABCADAFX123131X!$XXX"
  testthat::expect_false(check_passwd(test_string))
  # all lower
  test_string <- "@#$%2vsdfasad3aaaa123"
  testthat::expect_false(check_passwd(test_string))
  # test if empty
  test_string <- ""
  testthat::expect_false(check_passwd(test_string))
  # at least 2 number
  test_string <- "2adaIJLKHIL!@!#$!"
  testthat::expect_false(check_passwd(test_string))
  # at least 2 symbol
  test_string <- "AADaassda1233123!"
  testthat::expect_false(check_passwd(test_string))

  # Valid password
  test_string <- "@#$%2vsdfasad3aFADa123"
  testthat::expect_true(check_passwd(test_string))
  test_string <- "aaBB@@11"
  testthat::expect_true(check_passwd(test_string))
})

testthat::test_that("Validate password length", {
  test_passwd <- gen_passwd(2)
  testthat::expect_equal(stringr::str_length(test_passwd), 8L)

  test_passwd <- gen_passwd(9)
  testthat::expect_equal(stringr::str_length(test_passwd), 9L)

  test_passwd <- gen_passwd(NULL)
  testthat::expect_equal(stringr::str_length(test_passwd), 16L)

  test_passwd <- gen_passwd("ASAD")
  testthat::expect_equal(stringr::str_length(test_passwd), 16L)

  test_passwd <- gen_passwd()
  testthat::expect_equal(stringr::str_length(test_passwd), 16L)
})