tests/testthat/test-s2-point.R

In s2: Spherical Geometry Operators Using the S2 Geometry Library

test_that("s2_point objects can be created from and converted back to R objects", {
  # in
  expect_s3_class(s2_point(1, 2, 3), "wk_xyz")
  expect_length(s2_point(1, 2, 3), 1)
  expect_s3_class(as_s2_point(matrix(c(1, 2, 3), ncol = 3)), "wk_xyz")
  point <- s2_point(1, 2, 3)
  expect_identical(as_s2_point(point), point)
  expect_identical(
    as_s2_point(s2_lnglat(0, 0)),
    s2_point(1, 0, 0)
  )
})

test_that("s2_point can be imported from s2_geography", {
  expect_equal(
    as_s2_point(as_s2_geography("POINT (-64 45)")),
    as_s2_point(as_s2_lnglat(as_s2_geography("POINT (-64 45)")))
  )
})

test_that("s2_point objects can be printed", {
  expect_output(print(s2_point(1, 2, 3)), "s2_point_crs")
})