Cleaned tests

kellijohnson-NOAA · Apr 9, 2021 · 5dd94e0 · 5dd94e0
1 parent cc31360
commit 5dd94e0
Show file tree

Hide file tree

Showing 167 changed files with 672,546 additions and 240,331 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -13,7 +13,7 @@ library(ss3om)
 # expect_comparable {{{
 
 expect_comparable <- function(object, expected, ..., label = NULL,
-  expected.label = NULL) {
+  expected.label = NULL, diff = 0.05) {
 
   # 1. Capture object and label
   act <- quasi_label(rlang::enquo(object), label, arg = "object")
@@ -22,8 +22,9 @@ expect_comparable <- function(object, expected, ..., label = NULL,
   # 2. Call expect()
   act$diff <- c((object - expected) / abs(expected))
   expect(
-    all(abs(act$diff) < 0.02),
-    sprintf("some relative differences larger than 2%%, mean = %.2f", mean(act$diff))
+    all(abs(act$diff) < diff),
+    sprintf("some relative differences larger than %.2f%%, mean = %.2f",
+      diff * 100, mean(act$diff))
   )
 
   # 3. Invisibly return the value

diff --git a/tests/testthat/3.30/adrhke/CompReport.sso b/tests/testthat/3.30/adrhke/CompReport.sso
diff --git a/tests/testthat/3.30/adrhke/CompReport.sso.gz b/tests/testthat/3.30/adrhke/CompReport.sso.gz
diff --git a/tests/testthat/3.30/adrhke/ParmTrace.sso b/tests/testthat/3.30/adrhke/ParmTrace.sso
diff --git a/tests/testthat/3.30/adrhke/Report.sso b/tests/testthat/3.30/adrhke/Report.sso
diff --git a/tests/testthat/3.30/adrhke/Report.sso.gz b/tests/testthat/3.30/adrhke/Report.sso.gz
diff --git a/tests/testthat/3.30/adrhke/SIS_table.sso b/tests/testthat/3.30/adrhke/SIS_table.sso
diff --git a/tests/testthat/3.30/adrhke/admodel.cov b/tests/testthat/3.30/adrhke/admodel.cov