tests/testthat/test-range.R

In teunbrand/ggvctrcoords: Coordinates and scales for ggplot2 using the vctrs package

test_that("vec_range gives identical output as range for integers and doubles", {
  test_int <- c(-1L, 0L, 2L)
  test_num1 <- c(-11.2, 0, 12)
  test_num2 <- c(test_num1, Inf)
  test_num3 <- c(test_num2, NA_real_)

  expect_identical(vec_range(test_int), range(test_int))
  expect_identical(vec_range(test_num1), range(test_num1))
  expect_identical(vec_range(test_num2), range(test_num2))
  expect_identical(vec_range(test_num2, finite = TRUE),
                   range(test_num2, finite = TRUE))
  expect_identical(vec_range(test_num3), range(test_num3))
  expect_identical(vec_range(test_num3, na.rm = TRUE),
                   range(test_num3, na.rm = TRUE))

})

test_that("vec_zero_range gives expected output", {
  expect_true(vec_zero_range(1))
  expect_identical(vec_zero_range(NA), NA)
  expect_false(vec_zero_range(c(1, 0)))
  expect_true(vec_zero_range(c(1, 1)))
})

test_that("vec_zero_range takes other than length 2 arguments", {
  expect_true(vec_zero_range(c(0,0,0)))
  expect_true(vec_zero_range(c(0)))
  expect_false(vec_zero_range(c(0, 1, 2)))
})