tests/testthat/test-utils-format.R

In Robertus100/tibble: Simple Data Frames

context("utils-format")

test_that("pluralise works correctly", {
  expect_identical(pluralise("[an] index(es)", c("x")), "an index")
  expect_identical(pluralise("[an] index(es)", c("x", "y")), "indexes")
})

test_that("pluralise leaves alone parentheses / square brackets that have spaces inside", {
  expect_identical(pluralise("[an] invalid index(es) (be careful) [for real]", c("x")),
                   "an invalid index (be careful) [for real]")
  expect_identical(pluralise("[an] invalid index(es) (be careful) [for real]", c("x", "y")),
                   "invalid indexes (be careful) [for real]")
})

test_that("pluralise_msg works correctly", {
  expect_identical(pluralise_msg("[an] index(es): ", c("x")), "an index: 'x'")
  expect_identical(pluralise_msg("[an] index(es): ", c("x", "y")), "indexes: 'x', 'y'")
  expect_identical(pluralise_msg("[an] index(es): ", c(-4, -5)), "indexes: -4, -5")
})