tests/testthat/test-generate_id.R

test_that("Test: generate_id", {
  
  set.seed(1)
  
  out <- generate_id()
  
  expect_equal(out, "5GnYw9drQ44MaH")
  
})
kristian-bak/shinyStocks documentation built on Aug. 16, 2022, 4:15 a.m.