tests/testthat/test_svg.R

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>"
    )
  }
)
mikebesso/two.laws.html documentation built on Dec. 21, 2017, 9:06 a.m.