[r] Condition one more test file on 'extended mode'

single-cell-data · Nov 13, 2023 · 3ee2c98 · 3ee2c98
1 parent 7cb2eeb
commit 3ee2c98
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/apis/r/tests/testthat/test-write-soma-objects.R b/apis/r/tests/testthat/test-write-soma-objects.R
@@ -1,6 +1,7 @@
 spdl::set_level('warn')
 
 test_that("write_soma.data.frame mechanics", {
+  skip_if(!extended_tests())
   skip_if_not_installed('SeuratObject', .MINIMUM_SEURAT_VERSION('c'))
   skip_if_not_installed('datasets')
 
@@ -27,6 +28,7 @@ test_that("write_soma.data.frame mechanics", {
 })
 
 test_that("write_soma.data.frame enumerations", {
+  skip_if(!extended_tests())
   skip_if_not_installed('SeuratObject', .MINIMUM_SEURAT_VERSION('c'))
   skip_if_not_installed('datasets')
 
@@ -67,6 +69,7 @@ test_that("write_soma.data.frame enumerations", {
 })
 
 test_that("write_soma.data.frame no enumerations", {
+  skip_if(!extended_tests())
   skip_if_not_installed('SeuratObject', .MINIMUM_SEURAT_VERSION('c'))
   skip_if_not_installed('datasets')
 
@@ -114,6 +117,7 @@ test_that("write_soma.data.frame no enumerations", {
 })
 
 test_that("write_soma dense matrix mechanics", {
+  skip_if(!extended_tests())
   skip_if_not_installed('datasets')
 
   uri <- withr::local_tempdir("write-soma-dense-matrix")
@@ -170,6 +174,7 @@ test_that("write_soma dense matrix mechanics", {
 })
 
 test_that("write_soma sparse matrix mechanics", {
+  skip_if(!extended_tests())
   uri <- withr::local_tempdir("write-soma-sparse-matrix")
   collection <- SOMACollectionCreate(uri)
   knex <- get_data('KNex', package = 'Matrix')$mm