tests/testthat/test_StockPanel_setters.R

context("StockPanel setters (class unions)")

testthat::test_that("setDrawOnAxis", {
  testthat::expect_error(setDrawOnAxis(.Object = stockPanel()))
  testthat::expect_error(setDrawOnAxis(.Object = stockPanel(), valueAxis = 1))
  testthat::expect_error(setDrawOnAxis(.Object = stockPanel(), valueAxis = rep("a", 2)))
})

testthat::test_that("addStockGraph", {
  testthat::expect_error(addStockGraph(.Object = stockPanel()))
  testthat::expect_error(addStockGraph(.Object = stockPanel(), stockGraph = 1))
})


testthat::test_that("setStockLegend", {
  testthat::expect_error(setStockLegend(.Object = stockPanel()))
  testthat::expect_error(setStockLegend(.Object = stockPanel(), stockLegend = 1))
})

Try the rAmCharts package in your browser

Any scripts or data that you put into this service are public.

rAmCharts documentation built on Dec. 6, 2019, 5:11 p.m.