tests/testthat/test_sentensize.R

In wyz.code.rdoc: Wizardry Code Offensive Programming R Documentation

context("sentensize")

o <- sapply(c('', 'neonira wrote package \twyz.code.rdoc'), sentensize, USE.NAMES = FALSE)

test_that("sentensize", {
  expect_length(o[1], 1L)
  expect_equal(o[1], '')
  expect_length(o[2], 1L)
  expect_equal(o[2], 'Neonira wrote package wyz.code.rdoc.')
  expect_equal(sentensize('a simple', '  question\t', punctuationCharacter_s_1 = '?'), "A simple question?")
})