tests/testthat/test-Caps.R

context("Checking Caps")

test_that("Caps is replacing Correctly",{

    x <- "dogs cats"

    expect_equal(Caps(x), "Dogs cats")
    expect_equal(Caps(x, TRUE), "Dogs Cats")

})
trinker/discon documentation built on May 31, 2019, 8:42 p.m.