diff --git a/components/server.R b/components/server.R
index e609385..c0f7f59 100644
--- 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
new file mode 100644
index 0000000..35b2399
--- /dev/null
+++ 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, "")
+})