tests/testthat/test-ohsome_get_metadata.R

In ohsome: An 'ohsome API' Client

with_mock_api({

	# mock response: tests/testthat/mock_api/200/api.ohsome.org/v1/metadata.json
	.mockPaths("./mock_api/200")

	test_that(
		"returns metadata", {
			meta <- ohsome_get_metadata(quiet = T)
			expect_equal(meta$apiVersion, "1.8.0-RC1")
			expect_type(meta, "list")
			expect_s3_class(meta, "ohsome_metadata")
	})

	test_that(
		"converts spatial extent", {
			meta <- ohsome_get_metadata(quiet = T)
			expect_s3_class(meta$extractRegion$spatialExtent, "sfc_POLYGON")
			expect_equal(
				sf::st_bbox(meta$extractRegion$spatialExtent),
				sf::st_bbox(
					obj = c(xmin = -180, xmax = 180, ymax = 90, ymin = -90),
					crs = 4326
				)
			)
	})

	test_that(
		"message if quiet = F", {
			expect_message(ohsome_get_metadata(quiet = F))
	})
})


with_mock_api({

	# mock response: tests/testthat/mock_api/404/api.ohsome.org/v1/metadata.R
	.mockPaths("./mock_api/404")

	test_that(
		"throws error on API request fail", {
			expect_error(ohsome_get_metadata(quiet = T))
	})
})