tests/testthat/test-with-timer.R

In poissonconsulting/hmstimer: 'hms' Based Timer

test_that("with_timer", {
  fun <- function() {
    Sys.sleep(0.1)
    10
  }
  expect_message(expect_identical(with_timer(fun()), 10), "^00:00:00\\.\\d{3,3}\\s$")
})

test_that("with_timer", {
  expect_message(expect_identical(with_timer({
    for (i in 1:2) {
      Sys.sleep(0.1)
    }
    20
  }), 20), "^00:00:00\\.\\d{3,3}\\s$")
})

test_that("with_timer", {
  fun <- function() {
    Sys.sleep(0.1)
    10
  }
  expect_message(expect_identical(with_timer(fun(), title = TRUE), 10), "^00:00:00\\.\\d{3,3} \\[`fun\\(\\)`\\]\\s$")
})

test_that("with_timer title = TRUE", {
  expect_message(expect_identical(with_timer(
    {
      for (i in 1:2) {
        Sys.sleep(0.1)
      }
      20
    },
    title = TRUE
  ), 20), "^00:00:00\\.\\d{3,3} \\[`\\{ \\.{3,3} \\}`\\]\\s$")
})

test_that("with_timer srcref = TRUE", {
  fun <- function() {
    Sys.sleep(0.1)
    10
  }
  # Can't do .+ to match file:line because in some settings no file/line info is present
  expect_message(expect_identical(with_timer(fun(), srcref = TRUE), 10), "^00:00:00\\.\\d{3,3} \\[.*:.*\\]\\s$")
})

test_that("with_timer", {
  expect_message(expect_identical(with_timer(
    {
      for (i in 1:2) {
        Sys.sleep(0.1)
      }
      20
    },
    srcref = TRUE
  ), 20), "^00:00:00\\.\\d{3,3} \\[.*:.*\\]\\s$")
})