test_that("bounds works", {
  cf <- CFtime("days since 2024-01-01", "standard")
  off <- seq(from = 0.5, by = 1, length.out = 10)
  bnds <- rbind(0:9, 1:10)

  expect_null(bounds(cf))          # no offsets
  expect_error(bounds(cf) <- bnds) #

  cf <- cf + off
  expect_null(bounds(cf)) # bounds not set
  bounds(cf) <- TRUE
  expect_equal(bounds(cf), bnds)
  expect_equal(bounds(cf, "%Y-%m-%d")[2,1:3], c("2024-01-02", "2024-01-03", "2024-01-04"))
  bounds(cf) <- FALSE
  expect_null(bounds(cf))

  expect_error(bounds(cf) <- matrix(1:12, nrow = 4))
  expect_error(bounds(cf) <- "plain wrong")
  expect_error(bounds(cf) <- bnds * 10)

  bounds(cf) <- bnds
  expect_match(capture_output(methods::show(cf)), "Bounds  : regular and consecutive$")

  hr6 <- rbind(off - 0.25, off + 0.25)
  bounds(cf) <- hr6
  expect_match(capture_output(methods::show(cf)), "Bounds  : irregular$")
  expect_equal(bounds(cf), hr6)
  expect_equal(bounds(cf, "%H")[,1], c("06", "18"))
})

test_that("indexOf() works", {
  off <- (23*360):(24*360-1) + 0.5 # year 2024 days
  cf <- CFtime("days since 2001-01-01", "360_day", off)
  x <- c("1999-02-12", # pre-datum
         "2023-06-23", # pre-time series
         "2024-01-30",
         "2024-01-31", # non-existent date
         "2024-02-01",
         "2024-02-30",
         "2024-03-01",
         "2025-01-01") # post-time series

  expect_error(indexOf(x, cf, method = 4))
  expect_error(indexOf(TRUE, cf))
  expect_error(indexOf(x, CFtime("months since 2001-01-01", "standard", 0:23)))
  expect_error(indexOf(x, cf, nomatch = "July")) # must be able to coerce to numeric

  expect_equal(indexOf(x, cf)[1:8], c(NA, 0, 29, NA, 30, 59, 60, .Machine$integer.max))
  expect_equal(indexOf(x, cf, method = "linear")[1:8], c(NA, 0, 29.5, NA, 30.5, 59.5, 60.5, .Machine$integer.max))

  n <- 1:3
  out <- indexOf(n, cf)
  outcf <- attr(out, "CFtime")
  expect_equal(as_timestamp(cf)[1:3], as_timestamp(outcf))
  n <- c(-1, -2, -3)
  out <- indexOf(n, cf)
  outcf <- attr(out, "CFtime")
  expect_equal(length(outcf), 360 - 3)
  expect_equal(as_timestamp(cf)[4:6], as_timestamp(outcf)[1:3])
  expect_error(indexOf(c(-1, 1), cf))

  # Attached CFtime must have valid timestamps in `x`
  out <- indexOf(x, cf)
  outcf <- attr(out, "CFtime")
  expect_equal(as_timestamp(outcf), x[!is.na(out)])

  bounds(cf) <- TRUE
  expect_equal(indexOf(x, cf)[1:8], c(NA, 0, 30, NA, 31, 60, 61, .Machine$integer.max))
  expect_equal(indexOf(x, cf, method = "linear")[1:8], c(NA, 0, 30, NA, 31, 60, 61, .Machine$integer.max))
})