tests/testthat/test-pipeline.R

In whtns/seuratTools: Tools for Managing Seurat Objects

# seurat_integration_pipeline()

test_that("integration pipeline works", {
    batches <- panc8 %>%
        Seurat::SplitObject(split.by = "tech")

    integrated_seu <- seurat_integration_pipeline(batches)

    expect_equal(names(integrated_seu@assays), c(names(panc8@assays), "integrated"))
})

# seurat_process()

test_that("seurat pipeline works", {
    processed_seu <- seurat_process(panc8)

    expect_named(processed_seu@reductions, c("pca", "tsne", "umap"))
})