tests/testthat/test-grattan_arrow.R

test_that("grattan_arrow plot appears correct", {

expect_equal(
  grattan_arrow(),
  grid::arrow(type = "closed", angle = 20, length = unit(0.5, "lines"))
)

})
grattan/grattantheme documentation built on June 28, 2023, 1:50 p.m.