tests/testthat/test-finite.R

In wkutils: Utilities for Well-Known Geometry Vectors

test_that("wkt_has_missing() / wkt_is_finite() works", {
  expect_identical(wkt_has_missing(character(0)), logical(0))
  expect_false(wkt_has_missing("POINT EMPTY"))
  expect_false(wkt_has_missing("POINT (0 1)"))
  expect_true(wkt_has_missing("POINT (nan nan)"))
  expect_false(wkt_has_missing("POINT (inf inf)"))

  expect_true(wkt_is_finite("POINT EMPTY"))
  expect_true(wkt_is_finite("POINT (0 1)"))
  expect_false(wkt_is_finite("POINT (nan nan)"))
  expect_false(wkt_is_finite("POINT (inf inf)"))
})

test_that("wkb_has_missing() / wkb_is_finite() works", {
  expect_identical(wkb_has_missing(list()), logical(0))
  # WKB can't do empty point without missing coords
  expect_false(wkb_has_missing(as_wkb("LINESTRING EMPTY")))
  expect_false(wkb_has_missing(as_wkb("POINT (0 1)")))
  expect_true(wkb_has_missing(as_wkb("POINT (nan nan)")))
  expect_false(wkb_has_missing(as_wkb("POINT (inf inf)")))

  expect_identical(wkb_is_finite(list()), logical(0))
  expect_true(wkb_is_finite(as_wkb("LINESTRING EMPTY")))
  expect_true(wkb_is_finite(as_wkb("POINT (0 1)")))
  expect_false(wkb_is_finite(as_wkb("POINT (nan nan)")))
  expect_false(wkb_is_finite(as_wkb("POINT (inf inf)")))
})