tests/testthat/test_rmLcPrefix.R

context('rmLcPrefix')

expect_that(rmLcPrefix(c('abcd','abef','aqwe')), equals(c('bcd','bef','qwe')))
expect_that(rmLcPrefix(c('abcd','abef','abqwe')), equals(c('cd','ef','qwe')))
expect_that(rmLcPrefix(c('abc','abc')), equals(c('','')))
expect_that(rmLcPrefix(c('abc')), equals('abc'))
expect_that(rmLcPrefix(''), equals(''))
expect_that(rmLcPrefix(NULL), equals(character(0)))
expect_that(rmLcPrefix(factor(c('abc','abd'))), equals(c('c','d')))
tsieger/tsiMisc documentation built on Oct. 10, 2023, 10:24 p.m.