From c4995d27bb5a0e14aede83c09a84268ddaae031c Mon Sep 17 00:00:00 2001 From: Ed Baker Date: Tue, 6 Nov 2018 12:44:44 +0000 Subject: [PATCH] Test duty cycle validator. --- tests/testthat/test-validationFunctions.R | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-validationFunctions.R b/tests/testthat/test-validationFunctions.R index f7c90fef..7bed1a30 100644 --- a/tests/testthat/test-validationFunctions.R +++ b/tests/testthat/test-validationFunctions.R @@ -70,4 +70,9 @@ test_that("validateDutyCycle inputs", { expect_error(validateDutyCycle("string"), "Duty cycle must be numeric.") }) -test_that("validateDutyCycle rejects out of range values") \ No newline at end of file +test_that("validateDutyCycle rejects out of range values", { + expect_error(validateDutyCycle(2), "Duty cycle must be less than or equal to one.") + expect_error(validateDutyCycle(-1), "Duty cycle must be greater than or equal to zero.") + expect_equal(validateDutyCycle(0), 0) + expect_equal(validateDutyCycle(1), 1) +}) \ No newline at end of file