tests/testthat/test-prepSim.R

# generate toy dataset
seed <- as.numeric(format(Sys.time(), "%s"))
set.seed(seed); x <- .toySCE()

nk <- length(kids <- levels(x$cluster_id))
ns <- length(sids <- levels(x$sample_id))
ng <- length(gids <- levels(x$group_id))

test_that("prepSim()", {
    z <- x; class(z) <- "x"
    expect_error(prepSim(z))
    expect_error(prepSim(x, group_keep = "x"))
    y <- prepSim(x, 0, 0, 0, 0)
    expect_is(y, "SingleCellExperiment")
    expect_true(nrow(y) == nrow(x))
    expect_true(ncol(y) == sum(x$group_id == gids[1]))
    g <- sample(setdiff(gids, gids[1]), 1)
    y <- prepSim(x, 0, 0, 0, 0, group_keep = g)
    expect_true(ncol(y) == sum(x$group_id == g))
})

test_that("non-factor ID columns work", {
    y <- x; for (i in names(colData(y))) 
        y[[i]] <- as.character(y[[i]])
    expect_silent(prepSim(y, 0, 0, 0, 0, verbose = FALSE))
})

test_that("single cluster", {
    g <- sample(levels(x$group_id), 1)
    k <- sample(levels(x$cluster_id), 1)
    y <- x[, i <- x$cluster_id == k & x$group_id == g]
    z <- prepSim(y, min_size = 0, min_genes = 0, verbose = FALSE)
    expect_true(ncol(z) == sum(i))
    expect_true(!"cluster_id" %in% names(colData(z)))
})
HelenaLC/ddSingleCell documentation built on June 23, 2022, 3:33 a.m.