- add a test to check if the app starts

CeMOS-Mannheim · Jun 6, 2024 · 772a592 · 772a592
1 parent 6bad17e
commit 772a592
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/components/server.R b/components/server.R
@@ -350,6 +350,7 @@ server <- function(input, output, session) {
   exportTestValues(numSpec = length(appData$spec_all),
                    isSpectrumList = MALDIquant::isMassSpectrumList(appData$spec_all),
                    infoState =  appData$info_state,
+                   info3 = output$info3,
                    pca =  appData$pca,
                    clust = appData$clust)
 

diff --git a/tests/testthat/test_0startApp.R b/tests/testthat/test_0startApp.R
@@ -0,0 +1,20 @@
+test_that("App starts.", {
+  setwd(dirname(common::file.find(pattern = "req.txt")))
+  # make sure settings.csv is not present
+  if(file.exists("settings.csv")) {
+    fs::file_delete("settings.csv")
+  }
+
+  library(shinytest2)
+  options(shiny.testmode = TRUE)
+
+  app <- AppDriver$new(app_dir = getwd(),
+                       name = "M2ara_bruker load test",
+                       seed = 42,
+                       timeout = 4.5*1e5)
+
+  exp <- app$get_values(export = TRUE)
+
+  expect_equal(exp$export$infoState, "inital")
+  expect_equal(exp$export$info3, "")
+})