extendrtests: added null externalptr test (extendr#769)

* extendrtests: added null externalptr test this happens when an externalptr is deserialized from `RDS` file or similar * Update tests/extendrtests/tests/testthat/test-classes.R Co-authored-by: Ilia Kosenkov <[email protected]> --------- Co-authored-by: Ilia Kosenkov <[email protected]>
CGMossa · May 25, 2024 · 5caf7dc · 5caf7dc
1 parent e03c9b7
commit 5caf7dc
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/extendrtests/tests/testthat/test-classes.R b/tests/extendrtests/tests/testthat/test-classes.R
@@ -30,3 +30,13 @@ test_that("Issue 431: Restore struct as ExternalPtr", {
   y <- MyClass$restore_from_robj(x)
   expect_equal(x$a(), y$a())
 })
+
+test_that("Error nicely with null externalptr", {
+  x <- MyClass$new()
+  x$set_a(42L)
+  null_x <- new("externalptr") # no attributes, null-ptr
+  attributes(null_x) <- attributes(x)
+  expect_error(
+    null_x$set_a(44L)
+  )
+})