tests/testthat/test-right.R

context("test-right")

test_that("right substring extraction works", {
  some_string <- "supercalifragilisticexpialidocious"
  right_some_string <- right(some_string, 5)
  correct_substr <- "cious"
  expect_identical(right_some_string, correct_substr)
})
mike-decarlo/augmentR documentation built on March 17, 2023, 11:05 a.m.