tests/testthat/test-Y-microbenchmark.R

In simtimer: Datetimes as Integers for Discrete-Event Simulations

context("microbenchmark")
test_that("microbenchmark test for simtimer package.", {
  # skip("Skip for development of tests")
  skip_on_cran()
  t1 <- summary(microbenchmark::microbenchmark(
    sim_wday(24*60*60, origin_date),
    times = 10L, unit = "us"))$uq
  expect_equal(t1 < t_500us, T)
})