more tests...

HelenaLC · Nov 11, 2024 · 644483b · 644483b
1 parent 24a7197
commit 644483b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 6 deletions.
diff --git a/man/SpatialData.Rd b/man/SpatialData.Rd
diff --git a/tests/testthat/test_methods.R b/tests/testthat/test_methods.R
@@ -34,6 +34,14 @@ test_that("set one", {
         m <- length(get(paste0(f, "s"))(x))
         expect_true(m == (n-1))
     }
+    obj <- list(
+        ImageArray(), LabelArray(), 
+        ShapeFrame(), PointFrame(), 
+        SingleCellExperiment())
+    mapply(f=fun, o=obj, t=typ, \(f, o, t) {
+        x <- get(paste0(f, "<-"))(x, i=".", value=o)
+        expect_is(get(f)(x, "."), t)
+    })
 })
 
 test_that("get nms", {