tests/testthat/test-helper-functions.R

In EarthSystemDiagnostics/prxytools: Tools to Assist with Proxy Analyses

test_that("function is.equidistant works", {

  m <- "'x' needs to be numeric."

  x <- "a"
  expect_error(is.equidistant(x), m)
  x <- factor(1 : 5, levels = 1 : 5)
  expect_error(is.equidistant(x), m)
  x <- as.POSIXct("2024-01-12 11:10")
  expect_error(is.equidistant(x), m)

  expect_true(is.equidistant(42))
  expect_true(is.equidistant(pi))

  expect_true(is.equidistant(1 : 10))
  expect_true(is.equidistant(10 : 1))
  expect_true(is.equidistant((1 : 10) / 147))
  expect_true(is.equidistant(c(2.5, 5, 7.5, 10, 12.5)))
  expect_true(is.equidistant(seq(0, 38, 0.1)))
  expect_true(is.equidistant(seq(1, 56, 0.3748)))

  expect_false(is.equidistant(c(1 : 10, 18)))
  expect_false(is.equidistant(c(2, 5, 7.5, 10, 12.5)))
  expect_false(is.equidistant(c(0, seq(1, 56, 0.3748), 58, 123)))
  expect_false(is.equidistant(runif(42)))

})