tests/testthat/test-geos-segment.R

In geos: Open Source Geometry Engine ('GEOS') R API

test_that("segment intersection works", {
  expect_identical(
    geos_segment_intersection(
      list(0, 0, 10, 4),
      list(0, 4, 10, 0)
    ),
    list(x = 5, y = 2)
  )

  expect_identical(
    geos_segment_intersection(
      list(NA, 0, 10, 10),
      list(10, 0, NA, 10)
    ),
    list(x = NA_real_, y = NA_real_)
  )

  expect_identical(
    geos_segment_intersection(
      list(0, 0, 10, 10),
      list(0, 1, 10, 11)
    ),
    list(x = NaN, y = NaN)
  )
})

test_that("orientation index works", {
  expect_identical(
    geos_orientation_index(
      list(0, 0, 10, 10),
      list(10, 20)
    ),
    1L
  )

  expect_identical(
    geos_orientation_index(
      list(0, 0, 10, 10),
      list(20, 10)
    ),
    -1L
  )

  expect_identical(
    geos_orientation_index(
      list(0, 0, 10, 10),
      list(20, 20)
    ),
    0L
  )

  expect_identical(
    geos_orientation_index(
      list(NA, NA, NA, NA),
      list(NA, 20)
    ),
    NA_integer_
  )
})

test_that("invalid objects in input cause reasonable errors", {
  expect_error(geos_segment_intersection(list(1, 2, 3), list(1, 2, 3, 4)), "list\\(\\) of 'numeric'")
  expect_error(geos_orientation_index(list(1, 2, 3), list(1, 2)), "list\\(\\) of 'numeric'")
})