tests/testthat/test_names.R

In topepo/rsample: General Resampling Infrastructure

library(testthat)
library(rsample)

test_that('basic naming sequences', {
  expect_equal(rsample:::names0(2), c("x1", "x2"))
  expect_equal(rsample:::names0(2, "y"), c("y1", "y2"))
  expect_equal(rsample:::names0(10), 
               c(paste0("x0", 1:9), "x10"))
})