tests/testthat/test_propercase.R

In shug0131/cctu: In-house Functions for Report Writing at Cambridge Clinical Trials Unit

rm(list=ls())
context("propercase")
library(cctu)
library(testthat)


test_that("standard",
          {
            expect_equal(propercase("heLLo WORLD"), "Hello World")

          }
)

test_that("apostrophe",
          {
            expect_equal(propercase("Addenbrooke's"), "Addenbrooke's")

          }
)