Add test for error.

gbasulto · May 13, 2019 · de8a170 · de8a170
1 parent 1c607cd
commit de8a170
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/tests/testthat/test-fourierin_1d.R b/tests/testthat/test-fourierin_1d.R
@@ -3,10 +3,22 @@ context("univariate")
 test_that("fourierin works for 1d", {
   ## Function to be used in the integrand
   myfnc <- function(t) exp(-t^2/2)
-  
+
   ## Compute integral
   out <- fourierin(f = myfnc, lower_int = -5, upper_int = 5,
                    lower_eval= -3, upper_eval = 3, const_adj = -1,
                    freq_adj = -1, resolution = 64)
   expect_is(out, "list")
 })
+
+
+test_that("error if evaluation grid nor evaluation bounds are provided", {
+  ## Function to be used in the integrand
+  myfnc <- function(t) exp(-t^2/2)
+
+  ## Compute integral
+  expect_error(
+    fourierin(f = myfnc, lower_int = -5, upper_int = 5,
+              const_adj = -1,
+              freq_adj = -1, resolution = 64))
+})