tests/testthat/test-mod_internationalization.R

In datasketch/DSAppTemplate: DS App Template

context("mod internationalization")

library(golem)
library(shiny)
library(testthat)

test_that("app ui", {
  ui <- mod_internationalization_ui("internationalization_ui")
  expect_shinytaglist(ui)
})

test_that("app server", {
  server <- app_server
  expect_is(mod_internationalization_server, "function")
})
  
testServer(mod_internationalization_server, args = list(r = reactiveValues()), {

  expect_equal(r$lang, NULL)
  
})