tests/testthat/test-splot.colorcontrast.R

test_that("basic example work", {
  res <- splot.colorcontrast(c("#ffffff", "#666666", "#444444"))
  expect_identical(as.logical(res$AA), c(FALSE, TRUE, TRUE))
  expect_identical(as.logical(res$AAA), c(FALSE, FALSE, TRUE))
})

Try the splot package in your browser

Any scripts or data that you put into this service are public.

splot documentation built on Nov. 2, 2023, 6:02 p.m.