tests/testthat/test-id.R

context("ID")

test_that("we can generate a unique ID", {
  skip_on_cran()
  id <- renv_id_generate()
  expect_true(nchar(id) == 36L)
  expect_true(grepl("^[a-fA-F0-9-]+$", id))
})
wnattt/renv documentation built on Dec. 23, 2021, 5:19 p.m.