tests/testthat/helper-is_faster_than.R

In kirillseva/blink: blink (http://github.com/kirillseva/blink)

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)
}