tests/testthat/test_hello.R

In FrankLef/eflINLA: Utilities used with INLA by FL

test_that("Hello returns a message to console",
          {
            expect_message(object = hello(), regexp = "^Hello.*")
          })

test_that("Hello returns a string invisibly",
          {
            # see example in testthat::expect_invisible() documentation
            out <- expect_invisible(call = hello())
            expect_match(object = out, regexp = "^Hello.*")
          })

test_that("Hello returns an error",
          {
            expect_error(object = hello("wrong"), class = "hello_error")
          })