tests/testthat/test-style-var.r

test_that("style works", {

  x1 <- style("foobar", bold)
  x2 <- style("foobar", "bold")
  x3 <- bold("foobar")

  expect_equal(x1, x2)
  expect_equal(x2, x3)
  
})

Try the crayon package in your browser

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

crayon documentation built on Sept. 29, 2022, 5:13 p.m.