# context("svg functions")

# ## Test
# test_that("SVGCanvas works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })


# ## Test
# test_that("SVGTree works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })


# ## Test
# test_that("MatrixData works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })


# ## Test
# test_that("PlotCharacterMapping works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })


# ## Test
# test_that("PrintSwitcher works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })


# ## Test
# test_that("PrintJavascript works", {

#     ## Sanitizing
#     expect_error(FUN@@@())

#     ## Right output
#     expect_is(
#         FUN@@@()
#         , "class")
#     expect_equal(
#         dim(FUN@@@())
#         , dim)
# })