tests/testthat/test-utils.R

In r-pkgs/sessioninfo: R Session Information

test_that("sort_ci", {
  expect_equal(
    sort_ci(c("ant", "\u00a0nt", "bottom")),
    c("ant", "bottom", "\u00a0nt")
  )
})

test_that("order_by_name", {
  expect_equal(order_by_name(list()), list())

  expect_error(order_by_name(c("foo", "bar")), "no names")
})