extendrtests: added null externalptr test

CGMossa · Mar 2, 2024 · 5bcdb37 · 5bcdb37
1 parent eac2dea
commit 5bcdb37
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
@@ -31,3 +31,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)
+  )
+})