tests/testthat/test-dq_popover.R

In daqana/dqshiny: Enhance Shiny Apps with Customizable Modules

context("dq_popover / dq_pop")

test_that("bad inputs work", {
  expect_silent(dq_pop(NULL, NULL, NULL))
})

test_that("proper inputs work", {
  expect_silent(dq_pop(shiny::div(), "Title", "Content"))
  expect_silent(dq_pop(shiny::actionButton("test", "test"), "Title", "Content"))
  expect_silent(dq_pop(shiny::actionButton("test", "test"), "Title", "Content", trigger = "manual"))
})