tests/testthat/test_verifyFunctionName.R

In neonira/wyz.code.offensiveProgramming: Wizardry Code Offensive Programming

context("verifyFunctionName")

tn_good <- c('myFunctionName', 'myOtherFunctionName')
tn_bad <- c('MyClassName', 'MyOtherClassName',  'myParameterName_s_1')
tn_error <- c(56, NA)

test_that("verifyFunctionName", {
  myt <- function(aName_s_1) {
    expect_true(verifyFunctionName(!!aName_s_1))
  }

  myf <- function(aName_s_1) {
    expect_false(verifyFunctionName(!!aName_s_1))
  }

  mye <- function(aName_s_1) {
    expect_error(verifyFunctionName(!!aName_s_1))
  }

  sapply(tn_good, myt)
  sapply(tn_bad, myf)
  sapply(tn_error, mye)
})