tests/testthat/test-LEFT.R

test_that("Returns one string", {
  expect_equal(LEFT("hello", 2), "he")
})

test_that("Returns a character vector", {
  expect_equal(LEFT(c("hello", "hi", "hey"), 2), c("he", "hi", "he"))
})
njbultman/xlsxFunctions documentation built on Aug. 8, 2021, 3:14 p.m.