tests/issue-2.R

stopifnot(require(testthat))
context("issue#2")

library(naturalsort)

test_that("Produces an error when all elements are empty character", {
   text <- ""
   expected <- ""
   actual <- naturalsort(text)
   expect_that(actual, equals(expected))
})

Try the naturalsort package in your browser

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

naturalsort documentation built on May 2, 2019, 5:55 a.m.