testthat::test_that("simple_reporter_srv - reset a reporter (ReporterCard)", {
  testthat::skip_if_not_installed("ggplot2")

  card_fun <- function(card = ReportCard$new(), comment = NULL) {
    card$append_text("Header 2 text", "header2")
    card$append_text("A paragraph of default text", "header2")
    card$append_plot(
      ggplot2::ggplot(iris, ggplot2::aes(x = Petal.Length)) +
        ggplot2::geom_histogram(binwidth = 0.2)
    )
    card
  }

  card1 <- card_fun()
  reporter <- teal.reporter::Reporter$new()
  reporter$append_cards(list(card1))

  shiny::testServer(
    simple_reporter_srv,
    args = list(reporter = reporter, card_fun = card_fun),
    expr = {
      testthat::expect_identical(unname(reporter$get_cards()), list(card1$get_content()))
      session$setInputs(`reset_button_simple-reset_reporter` = 0)
      session$setInputs(`reset_button_simple-reset_reporter_ok` = 0)
      testthat::expect_identical(reporter$get_blocks(), teal_card())
    }
  )
})

testthat::test_that("simple_reporter_srv - reset a reporter", {
  testthat::skip_if_not_installed("ggplot2")

  card_fun <- function(card = ReportCard$new(), comment = NULL) {
    teal_card(
      "## Header 2 text",
      "A paragraph of default text",
      ggplot2::ggplot(iris, ggplot2::aes(x = Petal.Length)) +
        ggplot2::geom_histogram(binwidth = 0.2)
    )
  }

  card1 <- card_fun()
  reporter <- teal.reporter::Reporter$new()
  reporter$append_cards(list(card1))

  shiny::testServer(
    simple_reporter_srv,
    args = list(reporter = reporter, card_fun = card_fun),
    expr = {
      testthat::expect_identical(unname(reporter$get_cards()), list(card1))
      session$setInputs(`reset_button_simple-reset_reporter` = 0)
      session$setInputs(`reset_button_simple-reset_reporter_ok` = 0)
      testthat::expect_identical(reporter$get_blocks(), teal_card())
    }
  )
})