tests/testthat/test-patterns.r

library(testthat)
library(stringr)

context('patterns')
  whitespace <- c( " ", "  ", "\t", "\t\t")
  for( ws in whitespace ) 
    expect_true( grepl( pattern_whitespace, ws ) )

  whitespace_like <- c( "-", "_" )
  for( ws in whitespace_like ) 
    expect_true( grepl( pattern_whitespace_like, ws ) )
decisionpatterns/lettercase documentation built on May 23, 2020, 4:39 p.m.