tests/testthat/test_RcppClock.R

test_that("Testing Rcpp::Clock", {

  fibonacci(n = c(25, 30, 35), reps = 10)
  
  s <- summary(clock)
  expect_equal(all(colnames(s) == c("ticker", "mean", "sd", "min", "max", "neval")), TRUE)
  expect_equal(all(s$neval == 10), TRUE)
  expect_equal(all(!is.na(s)), TRUE)
  
})
zdebruine/RcppClock documentation built on June 24, 2022, 3:43 p.m.