tests/testthat/test-fc_utility_function.R

In SaskiaFreytag/schex: Hexbin plots for single cell omics data

test_that("correct .make_hexbin_fc_function", {
    x <- as.factor(rep(1:2, 16))
    x_gene <- runif(32)
    cID <- rep(1:4, 8)
    expect_equal(
        class(schex:::.make_hexbin_fc_function(x, x_gene, cID)),
        "list"
    )
})

test_that("correct1 .make_hexbin_fc_function", {
    x <- as.factor(rep(1:2, 32))
    x_gene <- runif(64)
    cID <- sample(1:2, 64, replace = TRUE)
    expect_equal(class(schex:::.make_hexbin_fc_function(x, x_gene, cID)), "list")
})

test_that("error .make_hexbin_fc_function", {
    x <- rep(1:2, 16)
    x_gene <- runif(32)
    cID <- rep(1:4, 8)
    expect_error(schex:::.make_hexbin_fc_function(x, x_gene, cID))
})