fixed order of expect_messages; fixess CRAN test bugs; closes #90

Author: dbarneche

tests/testthat/test-expand_classes.R

@@ -119,13 +119,13 @@ test_that("new loo_controls are incorporated", {
   my_ctrls <- list(weights = list(method = "pseudobma"))
   expand_manec(tt1, formulas, loo_controls = my_ctrls) %>%
     get_new_method %>%
-    expect_message %>%
     expect_equal("pseudobma") %>%
+    expect_message %>%
     suppressWarnings
   my_ctrls <- list(weights = list(method = "stacking"))
   expand_manec(tt1, formulas, loo_controls = my_ctrls) %>%
     get_new_method %>%
-    expect_message %>%
     expect_equal("stacking") %>%
+    expect_message %>%
     suppressWarnings
 })

tests/testthat/test-nec.R

@@ -22,7 +22,9 @@ test_that("works for bayesnecfit", {
 test_that("works for bayesmanecfit", {
   mes <- paste0("bayesmanecfit contains ecx model types and therefore nec",
                 " estimate includes nsec values.")
-  nec1 <- expect_message(nec(manec_example), mes)
+  nec1 <- nec(manec_example) %>%
+    suppressMessages
+  expect_message(nec(manec_example), mes)
   expect_equal(length(nec1), 3)
   expect_equal(names(nec1), c("50%", "2.5%", "97.5%"))
 })