Fix test: workaround for data being out of sync with S4 class definit…

…ion. Fixes #303
jeroen · Apr 5, 2020 · d3e990d · d3e990d
1 parent c9c22ef
commit d3e990d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-serializeJSON-S4.R b/tests/testthat/test-serializeJSON-S4.R
@@ -32,6 +32,7 @@ test_that("Advanced S4 serialization", {
   data(meuse, package = 'sp', envir = environment())
   sp::coordinates(meuse) <- ~x+y
   sp::proj4string(meuse) <- sp::CRS("+init=epsg:28992")
+  attr(meuse@proj4string, 'comment') = NULL
   out <- jsonlite::unserializeJSON(jsonlite::serializeJSON(meuse))
   expect_is(out, "SpatialPointsDataFrame")
   expect_true(isS4(out))