Added code coverage and added a codecov token

Author: bertcarnell

.github/workflows/rhub.yaml

@@ -84,7 +84,7 @@ jobs:
       - name: Bad CXXFLAGS for atlas
         if: matrix.config.label == 'atlas'
         # throws a warning on non-portable compilation flags
-        # Can's set _R_CHECK_COMPILATION_FLAGS_=FALSE because --as-cran resets it
+        # Can't set _R_CHECK_COMPILATION_FLAGS_=FALSE because --as-cran resets it
         # instead, allow for the flags that are a problem
         run: |
           echo '_R_CHECK_COMPILATION_FLAGS_KNOWN_="-Werror=format-security -Werror=implicit-function-declaration -Wno-ignored-attributes -Wno-parentheses -Wp,-D_FORTIFY_SOURCE=3"' >> $GITHUB_ENV

codecov.yml

@@ -10,3 +10,6 @@ coverage:
       default:
         target: auto
         threshold: 1%
+
+codecov:
+  token: 5037e846-ad23-45bb-a691-27f5fbcb94e5

tests/testthat/test-correlatedLHS.R

@@ -14,10 +14,21 @@ test_that("Normal Operations", {
   expect_true(is.numeric(temp$cost))
   expect_true(is.matrix(temp$lhs))
   expect_true(is.matrix(temp$transformed_lhs))
+
+  # debug
+  expect_output(temp <- correlatedLHS(randomLHS(10, 3),
+                        marginal_transform_function = function(x, ...) {
+                          x[,1] <- qunif(x[,1], 3, 6)
+                          return(x)
+                        },
+                        cost_function = function(x, ...) {
+                          (cor(x[,1], x[,2]) - 0.8)^2
+                        }, debug = TRUE))
 })
 
 test_that("problems", {
   # bad marginal_transform_function return
+  #   not a data.frame or matrix
   expect_error({
     correlatedLHS(randomLHS(10, 3),
                   marginal_transform_function = function(x, ...) {
@@ -28,6 +39,17 @@ test_that("problems", {
                   })
   })
 
+  #   wrong dimensions
+  expect_error({
+    correlatedLHS(randomLHS(10, 3),
+                  marginal_transform_function = function(x, ...) {
+                    return(matrix(1, nrow = 2, ncol = 2))
+                  },
+                  cost_function = function(x, ...) {
+                    return(1)
+                  })
+  })
+
   # bad cost_function return
   expect_error({
     correlatedLHS(randomLHS(10, 3),
@@ -63,4 +85,17 @@ test_that("problems", {
                   test_var = "A")
   })
 
+  # bad lhs
+  expect_output(
+    expect_error(
+      temp <- correlatedLHS(matrix(-1, nrow = 2, ncol = 2),
+                                      marginal_transform_function = function(x, ...) {
+                                        return(x)
+                                      },
+                                      cost_function = function(x, ...) {
+                                        return(sum(x))
+                                      }, debug = TRUE)
+    )
+  )
+
 })

tests/testthat/test-galois_field.R

@@ -160,3 +160,40 @@ test_that("Roots", {
   check_roots(create_galois_field(9))
   check_roots(create_galois_field(8))
 })
+
+test_that("poly_prod", {
+  gf <- create_galois_field(4)
+  # poly_prod(gf$p, gf$n, gf$xton, gf$poly[1,], gf$poly[2,])
+  # n != length(xton)
+  expect_error(poly_prod(gf$p, gf$n, gf$xton[1], gf$poly[1,], gf$poly[2,]))
+  # n != length(p1)
+  expect_error(poly_prod(gf$p, gf$n, gf$xton, gf$poly[1,1], gf$poly[2,]))
+  # n != length(p2)
+  expect_error(poly_prod(gf$p, gf$n, gf$xton, gf$poly[1,], gf$poly[2,1]))
+  # entries of polynomials > p
+  expect_error(poly_prod(gf$p, gf$n, gf$xton, c(7,7), gf$poly[2,]))
+  # entries of polynomials < 0
+  expect_error(poly_prod(gf$p, gf$n, gf$xton, c(-7,-7), gf$poly[2,]))
+})
+
+test_that("poly_sum", {
+  gf <- create_galois_field(4)
+  # n != length(p1)
+  expect_error(poly_sum(gf$p, gf$n, gf$poly[1,1], gf$poly[2,]))
+  # n != length(p2)
+  expect_error(poly_sum(gf$p, gf$n, gf$poly[1,], gf$poly[2,1]))
+  # entries of polynomials > p
+  expect_error(poly_sum(gf$p, gf$n, c(7,7), gf$poly[2,]))
+  # entries of polynomials < 0
+  expect_error(poly_sum(gf$p, gf$n, c(-7,-7), gf$poly[2,]))
+})
+
+test_that("poly2int", {
+  gf <- create_galois_field(4)
+  # n != length(poly)
+  expect_error(poly2int(gf$p, gf$n, gf$poly[1,1]))
+  # entries of polynomials > p
+  expect_error(poly2int(gf$p, gf$n, c(7,7)))
+  # entries of polynomials < 0
+  expect_error(poly2int(gf$p, gf$n, c(-7,-7)))
+})