tests/testthat/test-mod-line_graph.R

In ikbentimkramer/cdphmd: Collaborative Data Project Housing Market Dashboard

input <- data.frame(foo = c(1, 2, 3, 4), bar = c(5, 5, 1, 3))
test_that("line_graph_server does not throw errors", {
  rlang::with_options(lifecycle_verbosity = "quiet", {
    shiny::testServer(
      line_graph_server,
      args = list(x = "foo", y = "bar", df = input),
      {
        expect_error(output$linegraph, NA)
      })
  })
})

test_that("column name strings get converted to formulas correctly",{
  expect_equal(string2formula("foo"), ~foo)
  expect_equal(string2formula(" foo"), ~` foo`)
  expect_equal(string2formula("foo "), ~`foo `)
  expect_equal(string2formula("foo bar"), ~`foo bar`)
})

test_that("line_graph_server accepts reactives", {
  rlang::with_options(lifecycle_verbosity = "quiet", {
    shiny::testServer(
      line_graph_server,
      args = list(x = "foo", y = "bar", df = shiny::reactive({input})),
      {
        expect_error(output$linegraph, NA)
      })
  })
})