71 lines
2.1 KiB
R
71 lines
2.1 KiB
R
# Tests for palette functions
|
|
|
|
test_that("palette returns expected color vectors", {
|
|
# Test default palette
|
|
default_pal <- palette()
|
|
expect_type(default_pal, "character")
|
|
expect_length(default_pal, 5) # cat_5_main has 5 colors
|
|
|
|
# Test specific palette
|
|
cat_3_pal <- palette("cat_3_aquamarine")
|
|
expect_type(cat_3_pal, "character")
|
|
expect_length(cat_3_pal, 3)
|
|
|
|
# Test reversed palette
|
|
reversed_pal <- palette("cat_5_main", reverse = TRUE)
|
|
expect_equal(reversed_pal, rev(palette("cat_5_main")))
|
|
|
|
# Test custom palettes
|
|
custom_pal <- palette("cat_3_custom_1")
|
|
expect_equal(custom_pal, c("#003F5C", "#58508D", "#FFA600"))
|
|
})
|
|
|
|
test_that("show_palettes option works", {
|
|
# Test show_palettes parameter
|
|
pal_names <- palette(show_palettes = TRUE)
|
|
expect_type(pal_names, "character")
|
|
expect_true(length(pal_names) > 0)
|
|
expect_true("cat_5_main" %in% pal_names)
|
|
expect_true("cat_3_custom_1" %in% pal_names)
|
|
})
|
|
|
|
test_that("palette handles errors correctly", {
|
|
# Test non-existent palette
|
|
expect_error(
|
|
palette("not_a_real_palette"),
|
|
"Palette not defined"
|
|
)
|
|
|
|
# Test parameter validation
|
|
expect_error(palette(palette = 123))
|
|
expect_error(palette(palette = c("cat_5_main", "cat_3_custom_1")))
|
|
expect_error(palette(reverse = "yes"))
|
|
expect_error(palette(show_palettes = "TRUE"))
|
|
})
|
|
|
|
test_that("all palette entries are valid colors", {
|
|
# Get all palette names
|
|
pal_names <- palette(show_palettes = TRUE)
|
|
|
|
# Check each palette contains valid colors
|
|
for (pal_name in pal_names) {
|
|
pal_colors <- palette(pal_name)
|
|
|
|
# Check that each color can be processed by grDevices
|
|
for (color in pal_colors) {
|
|
expect_true(
|
|
# Check if the color is valid by converting it to RGB
|
|
!is.na(grDevices::col2rgb(color)[1, 1]),
|
|
info = paste("Invalid color in palette", pal_name, ":", color)
|
|
)
|
|
}
|
|
}
|
|
})
|
|
|
|
test_that("palettes have expected lengths", {
|
|
# Check specific palette lengths
|
|
expect_length(palette("cat_2_yellow"), 2)
|
|
expect_length(palette("cat_3_aquamarine"), 3)
|
|
expect_length(palette("cat_5_main"), 5)
|
|
expect_length(palette("cat_8_tol_adapted"), 8)
|
|
})
|