tests/testthat/test-utility.R

context("Utility")

test_that("ensureSuffix() produces correct output", {
  expect_equal(ensureSuffix("bla","a"),"bla")
  expect_equal(ensureSuffix("bl","a"),"bla")
  expect_equal(ensureSuffix("","a"),"a")
  expect_equal(ensureSuffix("bla",""),"bla")
})

Try the DramaAnalysis package in your browser

Any scripts or data that you put into this service are public.

DramaAnalysis documentation built on Jan. 13, 2021, 10:02 p.m.