Add unit tests to increase coverage

aadler · Aug 7, 2023 · c4bc88f · c4bc88f
1 parent 1781165
commit c4bc88f
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/inst/tinytest/test_horner.R b/inst/tinytest/test_horner.R
@@ -0,0 +1,12 @@
+# Copyright Avraham Adler (c) 2023
+# SPDX-License-Identifier: MPL-2.0+
+
+tol <- 1e-7
+x <- 1:3
+a <- c(1, 1e-6, 1e-12)
+expect_equal(minimaxApprox:::horner(x, a),
+             minimaxApprox:::compensatedHorner(x, a),
+             tolerance = tol)
+
+expect_error(minimaxApprox:::hornerSum(x, a, c(a, 1)),
+             "Error polynomials must be of same length.")