tests/testthat/test_shp2geojson.R

In Helseatlas/maps: Package containing maps used by Helseatlas

context("shp2geojson")

test_that("shp2geojson with default", {
  expect_equal_to_reference(
    shp2geojson(
      folder = "data",
      shapefile = "shapefile1",
      geojson = NULL
    ),
    "data/shp2geojson1.json"
  )
})

test_that("shp2geojson with reduce_size = FALSE", {
  expect_equal_to_reference(
    shp2geojson(
      folder = "data",
      shapefile = "shapefile1",
      geojson = NULL,
      reduce_size = FALSE
    ),
    "data/shp2geojson2.json"
  )
})

test_that("shp2geojson with reduce_size = FALSE and amount = 0.01", {
  expect_equal_to_reference(
    shp2geojson(
      folder = "data",
      shapefile = "shapefile1",
      geojson = NULL,
      reduce_size = FALSE,
      amount = 0.01
    ),
    "data/shp2geojson2.json"
  )
})

test_that("shp2geojson with amount = 0.01", {
  expect_equal_to_reference(
    shp2geojson(
      folder = "data",
      shapefile = "shapefile2",
      geojson = NULL,
      amount = 0.01
    ),
    "data/shp2geojson3.json"
  )
})

test_that("shp2geojson with geojson != NULL", {
  shp2geojson(
      folder = "data",
      shapefile = "shapefile1",
      geojson = "tmp")

  expect_equal_to_reference("tmp.geojson","data/shp2geojson.geojson")
  file.remove("tmp.geojson")
})