tests/testthat/helper-is_faster_than.R

is_faster_than <- function(seconds, expr) {
  expect_less_than(system.time(eval(expr))['elapsed'], seconds)
}

is_slower_than <- function(seconds, expr) {
  expect_more_than(system.time(eval(expr))['elapsed'], seconds)
}
kirillseva/blink documentation built on May 20, 2019, 10:23 a.m.