tests/testthat/test_10R6.R

In Grandez/plantumlr: Create UML diagramas into RMarkdown documents

context("Graphics")

if (localDevelopment()) {
   plant = UMLR$new(plantuml=getPlantUML())

   test_that("Image1", expect_true((nchar(getTestData()) > 0)))
   #test_that("Image", expect_true((class(plant$image(getTestData())) == "magick-image")))
}