tests/testthat/test-icon_style.R

In icons: Easily Insert SVG Icons into R Outputs

test_that("icon_style() sets and replaces style properties", {
  set <- local_icon_set_flat()
  icon <- set$triangle

  styled <- icon_style(icon, scale = 2, fill = "red")
  styled_attribs <- icon_materialize_all(styled)[[1]]$attribs
  expect_match(styled_attribs$style, "height:2em;")
  expect_match(styled_attribs$style, "fill:red;")

  # calling again replaces rather than duplicates the property
  restyled <- icon_style(styled, scale = 3)
  restyled_attribs <- icon_materialize_all(restyled)[[1]]$attribs
  expect_match(restyled_attribs$style, "height:3em;")
  expect_no_match(restyled_attribs$style, "height:2em;")
})

test_that("icon_style() sets rotation and arbitrary CSS via ...", {
  set <- local_icon_set_flat()
  icon <- set$triangle

  styled <- icon_style(icon, rotate = 45, float = "right")
  styled_attribs <- icon_materialize_all(styled)[[1]]$attribs
  expect_match(styled_attribs$style, "transform: rotate\\(45deg\\);")
  expect_match(styled_attribs$style, "float:right;")
})