mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2026-06-19 04:27:30 +02:00
15 lines
407 B
R
15 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)
|
||
|
|
)
|
||
|
|
})
|