tests/testthat/test-wkt_linestring.R

In randgeo: Generate Random 'WKT' or 'GeoJSON'

context("wkt_linestring")

test_that("wkt_linestring works", {
  set.seed(42)
  aa <- wkt_linestring()

  expect_is(aa, "character")
  expect_match(aa, "LINESTRING")
  expect_match(aa, "\\(")
  expect_match(aa, "\\)")

  xx <- as.numeric(
    strsplit(regmatches(aa, regexpr('[0-9.-]+\\s[0-9.-]+', aa)), " ")[[1]]
  )
  lng <- xx[1]
  lat <- xx[2]

  # lng is between -180 and 180
  expect_lte(abs(lng), 180)

  # lat is between -90 and 90
  expect_lte(abs(lat), 90)
})

test_that("wkt_linestring fails well", {
  skip_on_cran()

  expect_error(wkt_linestring(count = "foo"),
               "count must be of class numeric, integer")

  expect_error(wkt_linestring(num_vertices = "Adsfdf"),
               "num_vertices must be of class numeric, integer")

  expect_error(
    wkt_linestring(max_length = mtcars),
    "max_length must be of class numeric, integer")

  expect_error(wkt_linestring(max_rotation = "blabla"),
               "max_rotation must be of class numeric, integer")

  expect_error(wkt_linestring(stuff = mtcars), "unused argument")

  expect_error(wkt_linestring(bbox = 4), "length\\(bbox\\) == 4 is not TRUE")

  expect_error(wkt_linestring(fmt = 145), "invalid 'nsmall' argument")
})