tests/testthat/test-create_cell_colors.R

In LieberInstitute/DeconvoBuddies: Helper Functions for LIBD Deconvolution

my_colors <- c("darkorchid4", "deeppink4", "aquamarine3", "darkolivegreen1")

test_that("Expected color pallet", {
    expect_equal(
        suppressMessages(
            create_cell_colors(
                cell_type = c("A", "B", "C", "D"),
                palette = my_colors
            )
        ),
        c(A = "darkorchid4", B = "deeppink4", C = "aquamarine3", D = "darkolivegreen1")
    )
})

test_that("Error with no color input", {
    expect_error(suppressMessages(
        create_cell_colors(
            cell_type = c("A", "B", "C", "D"),
            palette_name = NULL
        )
    ))
})

test_that("Error with bad palette_name put", {
    expect_error(
        create_cell_colors(
            cell_type = c("A", "B", "C", "D"),
            palette_name = "NOT A palette"
        )
    )
})

test_that("Error with less color than ct", {
    expect_error(
        suppressMessages(
            create_cell_colors(
                cell_type = c("A", "B", "C", "D"),
                palette = my_colors[1:3]
            )
        )
    )
})