test-utils.R

test_that('gh_delta works', {
  expect_equal(gh_delta(0L), c(90.0, 180.0))

  expect_equal(gh_delta(8L), c(8.58306884765625e-05, 0.000171661376953125))

  # one at a time, for now...
  expect_error(gh_delta(1:5), 'One precision at a time', fixed = TRUE)

  # bounds checking
  expect_error(gh_delta(-1L), 'precision must be a single integer between 0 and 25')
  expect_error(gh_delta(26L), 'precision must be a single integer between 0 and 25')
  expect_error(gh_delta(100L), 'precision must be a single integer between 0 and 25')
  expect_error(gh_delta('foo'), 'precision must be a single integer between 0 and 25')
  expect_error(gh_delta(NA), 'precision must be a single integer between 0 and 25')

  # valid edge cases
  expect_length(gh_delta(0L), 2L)
  expect_length(gh_delta(1L), 2L)
  expect_length(gh_delta(25L), 2L)
})