tests/testthat/test_SAVF_exp_plot.R

test_that("SAVF_exp_plot provides proper messages and warnings",{
  expect_error(SAVF_exp_plot(70, 68, 85, 82, TRUE))
  expect_error(SAVF_exp_plot(74, 90, 79, 82, TRUE))
  expect_error(SAVF_exp_plot(74, 90, 79, 95, FALSE))
  expect_error(SAVF_exp_plot(74, 90, 91, 88, FALSE))
  expect_error(SAVF_exp_plot(74, 68, 75, 82, FALSE))
})
joshdeehr/DecisionAnalysis documentation built on Nov. 7, 2019, 12:13 a.m.