tests/testthat/test-ui.R

In laminr: Client for 'LaminDB'

test_that("get_message_fun() returns the correct functions", {
  expect_error(get_message_fun("error")("msg"))

  expect_warning(get_message_fun("warning")("msg"))

  expect_message(get_message_fun("message")("msg"))

  expect_null(get_message_fun("none"))
})