Avoid issue stan-dev#330 in the unit tests (necessary now that stan-d…

…ev#329 has been fixed).
fweber144 · Jul 7, 2022 · 0391d50 · 0391d50
1 parent 22baeb7
commit 0391d50
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -1134,6 +1134,10 @@ cre_args_smmry_vsel <- function(args_obj) {
           nterms_tst <- nterms_max_smmry["default_nterms_max_smmry"]
         }
       }
+      if (fam_crr == "binom") {
+        # Due to issue #330:
+        stats_crr$stats <- setdiff(stats_crr$stats, "auc")
+      }
       lapply(nterms_tst, function(nterms_crr) {
         return(c(
           nlist(tstsetup_vsel), only_nonargs(args_obj[[tstsetup_vsel]]),

diff --git a/tests/testthat/test_methods_vsel.R b/tests/testthat/test_methods_vsel.R
@@ -295,6 +295,10 @@ test_that("`stat` works", {
                           "binom" = "binom_stats",
                           "common_stats")
     stat_vec <- stats_tst[[stat_crr_nm]]$stats
+    if (fam_crr == "binom") {
+      # Due to issue #330:
+      stat_vec <- setdiff(stat_vec, "auc")
+    }
     for (stat_crr in stat_vec) {
       if (stat_crr %in% c("rmse", "auc")) {
         suggsize_seed <- seed3_tst