From 02086985b7ac0eb5148224576f345a1b29e80fdf Mon Sep 17 00:00:00 2001 From: Joan Maspons Date: Thu, 29 Dec 2022 10:32:59 +0100 Subject: [PATCH] Fix tests after removing initial space in features Queries in opq_string still produce the same indentation and spaciation --- tests/testthat/test-osmdata.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/testthat/test-osmdata.R b/tests/testthat/test-osmdata.R index 624676a6..d94bc291 100644 --- a/tests/testthat/test-osmdata.R +++ b/tests/testthat/test-osmdata.R @@ -49,14 +49,14 @@ test_that ("add feature", { key = "highway", value = "!primary", match_case = FALSE ) - expect_identical (qry1$features, " [\"highway\"]") - expect_identical (qry2$features, " [\"highway\"=\"primary\"]") + expect_identical (qry1$features, "[\"highway\"]") + expect_identical (qry2$features, "[\"highway\"=\"primary\"]") expect_identical ( qry3$features, - " [\"highway\"~\"^(primary|tertiary)$\"]" + "[\"highway\"~\"^(primary|tertiary)$\"]" ) - expect_identical (qry4$features, " [\"highway\"!=\"primary\"]") - expect_identical (qry5$features, " [\"highway\"!=\"primary\",i]") + expect_identical (qry4$features, "[\"highway\"!=\"primary\"]") + expect_identical (qry5$features, "[\"highway\"!=\"primary\",i]") bbox <- c (-0.118, 51.514, -0.115, 51.517) qry <- opq (bbox = bbox)