tests/testthat/test-appPieChart.R

context("appPieChart")


test_that("multiplication works", {

  lab <- c("good", "bad")
  val <- c(1, -1)

  expect_is(appPieChart(lab, val), "gvis")
  expect_is(appPieChart(lab, val), "list")

})
INWT/MariaDB_Monitor documentation built on March 6, 2020, 7:12 p.m.