mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
16 lines
407 B
R
16 lines
407 B
R
|
test_that("Contrasting works", {
|
||
|
|
colors <- c("#F2F2F2", "blue","red","black","white","gray35")
|
||
|
|
|
||
|
|
expect_snapshot(
|
||
|
|
contrast_text(colors)
|
||
|
|
)
|
||
|
|
|
||
|
|
expect_snapshot(
|
||
|
|
contrast_text(colors,light_text = "blue",dark_text = "grey10", method = "relative", threshold = .1)
|
||
|
|
)
|
||
|
|
|
||
|
|
expect_snapshot(
|
||
|
|
contrast_text(colors,light_text = "blue",dark_text = "grey10", method = "perceived", threshold = .7)
|
||
|
|
)
|
||
|
|
})
|