tests/testthat/test-user_input.R

test_that("draw graph has the correct input", {
  expect_error(Draw.Graph(1000,100,500))
  expect_error(Draw.Graph(1000,500,100,250, 50, 100))
  expect_error(Draw.Graph(100,500,100, 250, 100, 50))
  expect_error(Draw.Graph(1000,500,100, 50, 100, 50))
})
dCraigJones/pumpR documentation built on Feb. 17, 2020, 5:04 a.m.