tests/testthat/test_reverse.R

In PeteHaitch/rope: Syntactic Sugar for Strings in Rcpp

context("Test string reversal")

test_that("Single strings can be reversed",{
  result <- rope:::string_reverse_single("FOOBAR")
  expect_that(result, equals("RABOOF"))
})

test_that("Multiple strings can be reversed",{
  strings <- c("blargh", "blargh", "loss")
  result <- rope:::string_reverse_vector(strings)
  expect_that(result, equals(c("hgralb", "hgralb", "ssol")))
})