mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
Andreas Gammelgaard Damsbo
e463fa0670
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
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)
|
|
)
|
|
})
|