From 006b5b848588f487ce9b831d3ef0b5d131b72170 Mon Sep 17 00:00:00 2001 From: Edzer Pebesma Date: Fri, 29 Nov 2019 16:43:32 +0100 Subject: [PATCH] restrict CRS equality testing to epsg and proj4string; #1146 --- tests/testthat/test_crs.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_crs.R b/tests/testthat/test_crs.R index ec8767604..a8b5da8b1 100644 --- a/tests/testthat/test_crs.R +++ b/tests/testthat/test_crs.R @@ -5,10 +5,10 @@ test_that("st_crs works", { nc2 = st_read(system.file("shape/nc.shp", package="sf"), "nc", quiet = TRUE) nc3 = st_read(system.file("shape/nc.shp", package="sf"), "nc", crs = NA, quiet = TRUE) crs_4267 <- st_crs(4267) - expect_equal(st_crs(nc2), crs_4267) + expect_equal(st_crs(nc2)[1:2], crs_4267[1:2]) expect_equal(st_crs(nc3), NA_crs_) expect_equal(st_set_crs(nc3, 4267) %>% st_crs, crs_4267) - expect_equal(nc1, nc2) + expect_equal(nc1[1:2], nc2[1:2]) expect_warning(st_crs(nc2) <- 3857, "replacing crs does not reproject data") expect_silent(st_crs(nc2) <- 3857)