add test using RDS method

drieslab · Sep 25, 2024 · 9676ca2 · 9676ca2
1 parent 72027b4
commit 9676ca2
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-save_load.R b/tests/testthat/test-save_load.R
@@ -17,3 +17,20 @@ test_that("gobject an be ovewritten and loaded - qs", {
 
     expect_true(methods::validObject(g3))
 })
+
+test_that("gobject can be saved and loaded - RDS", {
+    rlang::local_options(lifecycle_verbosity = "quiet")
+    saveGiotto(g, dir = test, overwrite = TRUE, verbose = FALSE)
+    g2 <<- loadGiotto(file.path(test, "saveGiottoDir"))
+
+    expect_true(methods::validObject(g2))
+})
+
+test_that("gobject an be ovewritten and loaded - RDS", {
+    rlang::local_options(lifecycle_verbosity = "quiet")
+    saveGiotto(g2, dir = test, overwrite = TRUE, verbose = FALSE)
+    g3 <- loadGiotto(file.path(test, "saveGiottoDir"))
+
+    expect_true(methods::validObject(g3))
+})
+