如何在golem框架中测试模块？

Question

我正试图为我的闪亮应用程序开发单元测试，该应用程序是使用golem框架和shiny v1.5.0开发的。

Golem附带了一个推荐的测试文件，它涵盖了非常基本的UI测试。然而，我更关心的是测试所有模块的服务器端。所以，就像你在一个普通的R包中对每个函数进行测试一样，我想在我闪亮的应用程序中测试每个模块。

我知道有一个testModule函数正在开发中，但是它没有包含在最新的闪亮的CRAN版本中(这正是我正在使用的版本)。只有一个testServer函数，但我发现的所有示例似乎都定义了测试文件中的模块服务器端。当模块是包的一部分时，我找不到模块测试的例子。

因此，我想做的基本上是一个位于tests/testthat/test-my_module.R内部的测试，看起来如下所示：

test_that("The module receives its input", {
    shiny::testServer(
        app = mypackage::my_module_server,
        args = list(),
        session = MockShinySession$new(), {
        session$setInputs(some_input = 100)
        expect_equal(output$some_output, 50)
    })
})

但是，这会引发一个错误：

Error in UseMethod("as.shiny.appobj", x) : 
  método não aplicável para 'as.shiny.appobj' aplicado a um objeto de classe "function"

它基本上说，当应用于函数类对象时，指定的方法不起作用。

我是不是漏掉了什么？

希望能讨论一下，当你把一个闪亮的应用程序开发成一个软件包时，你是如何进行测试的。

Answer 1

我也被困在这里了。我用这种方法解决了我的包裹(西斯特克)。

aria_server <- sistec::aria_server() 
server <- function(id) {
  shiny::moduleServer(id, aria_server)
}

testServer(server, {
  # comparison$x is FALSE
  testthat::expect_false(comparison$x)
})

你可以试试你的：

mypackage_server <- mypackage::my_module_server
server <- function(id) {
  moduleServer(id, mypackage)
}

test_that("The module receives its input", {
    shiny::testServer(server, {
      session$setInputs(some_input = 100)
      expect_equal(output$some_output, 50)
    })
})