tests/testthat/test-which.R

In andreas50/uts: Unevenly-spaced Time Series

context("which")

test_that("Which works",{
  expect_identical(
    which(ex_uts() > 48),
    as.POSIXct(c("2007-11-08 07:00:00", "2007-11-08 08:01:00", "2007-11-08 13:15:00"), tz="America/New_York")
  )
  
  # Intentional error
  expect_error(
    which(ex_uts())
  )
})