fixed tests to use messages

Author: smasongarrison

tests/testthat/test-insertEven.R

@@ -32,7 +32,7 @@ test_that("evenInsert inserts elements of m into n when m < n", {
 # Test Case 5: Verbose mode
 test_that("Verbose mode work for evenInsert", {
   # skip_on_cran(message = "Skipping test that only checks for verbose output")
-  expect_output(evenInsert(1:3, 4:6, verbose = TRUE),
+  expect_messsage(evenInsert(1:3, 4:6, verbose = TRUE),
     regexp = "1 2 3 \\n1 2 3 \\n1 2 3 \\n4 5 6 "
   )
 })
@@ -43,6 +43,5 @@ test_that("evenInsert handles vectors of equal length correctly", {
   result_observed <- evenInsert(1:3, 4:6)
   result_expected <- c(1, 4, 2, 5, 3, 6)
 
-
   expect_equal(result_observed, result_expected)
 })

tests/testthat/test-simulatePedigree.R

@@ -25,5 +25,5 @@ test_that("simulatePedigree verbose prints updates", {
   sexR <- .50
   marR <- .7
 
-  expect_output(simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, verbose = TRUE), regexp = "Let's build the connection within each generation first")
+  expect_message(simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, verbose = TRUE), regexp = "Let's build the connection within each generation first")
 })