tests/testthat/test-ohsome_post.R

In GIScience/ohsome-r: An 'ohsome API' Client

with_mock_api({

	.mockPaths("./mock_api/200")

	# mock response: tests/testthat/mock_api/200/api.ohsome.org/v1/elements/count-754ee5-POST.csv
	test_that(
		"returns ohsome API response if parse = FALSE", {

			q <- ohsome_query(
				c("elements", "count"),
				filter = "shop=convenience",
				bcircles = "13.45,52.5,1000"
			)

			expect_s3_class(ohsome_post(q, parse = FALSE, validate = FALSE), "response")
	})

	test_that(
		"returns data.frame if parse = TRUE", {

			q <- ohsome_query(
				c("elements", "count"),
				filter = "shop=convenience",
				bcircles = "13.45,52.5,1000"
			)

			expect_s3_class(ohsome_post(q, parse = TRUE, validate = FALSE), "data.frame")
		})
})


with_mock_api({

	# mock response: tests/testthat/mock_api/404/api.ohsome.org/elements/amount-754ee5-POST.R
	.mockPaths("./mock_api/404")

	test_that(
		"throws error on API request fail", {

			q <- ohsome_query(
				c("elements", "amount"),
				filter = "shop=convenience",
				bcircles = "13.45,52.5,1000"
			)

			expect_error(ohsome_post(q, validate = FALSE))
		})
})

test_that("throws error on invalid queries by default (strict=TRUE)", {
	q <- ohsome_query("foo")
	expect_error(suppressWarnings(ohsome_post(q)))
})