tests/testthat/test_svg.R

In mikebesso/two.laws.html:

library(two.laws.html)

SetTestContext("svg")

CreateTestCase(
  "Empty svg tags",
  {
    Html <- str_RemoveWhitespace(
      as.character(withTags(svg(g())))
    )

    expect_equal(
      Html,
      "<svg><g></g></svg>"
    )
  }
)