tests/testthat/test-utils.R

In paleolimbot/headings: Tools for Working with Compass Headings

test_that("cast_double() works", {
  expect_identical(cast_double(5), 5)
  expect_identical(cast_double(5L), 5)
  expect_error(cast_double(Sys.time()), "Can't cast")
})

test_that("recycle_common works", {
  expect_identical(recycle_common(1, 2), list(1, 2))
  expect_identical(recycle_common(1, b = 2), list(1, b = 2))
  expect_identical(recycle_common(1, 2:4), list(c(1, 1, 1), c(2L, 3L, 4L)))
  expect_identical(recycle_common(numeric(0), 2), list(numeric(0), numeric(0)))
  expect_error(recycle_common(numeric(0), 2:4), "Incompatible lengths")
})