tests/issue-1.R

In kos59125/naturalsort: Natural Ordering

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

library(naturalsort)

test_that("Returns several NAs when argument is just one element", {
   text <- "a-10.png"
   expected <- "a-10.png"
   actual <- naturalsort(text)
   expect_that(actual, equals(expected))
})