tests/testthat/test-test-add_cell_message.R

In cheetahR: High Performance Tables Using 'Cheetah Grid'

test_that("add_cell_message generates correct JS function", {
  get_js_text <- function(js_obj) {
    js_obj[1]
  }

  # Simple string message
  fn1 <- add_cell_message("warning", "Check this.")
  js1 <- get_js_text(fn1)
  expect_true(grepl("type: 'warning'", js1))
  expect_true(grepl("message: 'Check this.'", js1))

  # Test: raw JS expression
  raw_expr <- "rec.Species ? null : 'Please check.';"
  fn2 <- add_cell_message("error", raw_expr)
  js2 <- get_js_text(fn2)
  expect_true(grepl("type: 'error'", js2))
  expect_true(grepl("message: rec.Species ? null : 'Please check.'", js2, , fixed = TRUE))

  # Test: info type and escaping quotes
  fn3 <- add_cell_message("info", "It's OK")
  js3 <- get_js_text(fn3)
  expect_true(grepl("type: 'info'", js3))
  expect_true(grepl("message: 'It\\'s OK'", js3))

  # Test: invalid type throws error
  expect_error(add_cell_message("critical", "Oops"),
               "'arg' should be one of")
})