tests/testthat/test_rmLcPostfix.R

context('rmLcPostfix')

expect_that(rmLcPostfix(c('abab','weab')), equals(c('ab','we')))
expect_that(rmLcPostfix(c('qwea','asda','zxca')), equals(c('qwe','asd','zxc')))
expect_that(rmLcPostfix(c('abc','abc')), equals(c('','')))
expect_that(rmLcPostfix(c('abc')), equals('abc'))
expect_that(rmLcPostfix(''), equals(''))
expect_that(rmLcPostfix(NULL), equals(character(0)))
expect_that(rmLcPrefix(factor(c('abc','eec'))), equals(c('abc','eec')))
expect_that(rmLcPrefix(factor(c('zabc','zeec'))), equals(c('abc','eec')))
tsieger/tsiMisc documentation built on Oct. 10, 2023, 10:24 p.m.