355: Add load_timeout = 30000 to AppDriver::new() calls (#357)

part of #355

Signed-off-by: Daniel Sabanes Bove <[email protected]>

tests/testthat/test-adtteSpec.R

@@ -195,7 +195,8 @@ test_that("adtteSpecServer module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("adtteSpec"),
     name = "adtteSpecServe",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-assaySpec.R

@@ -26,7 +26,9 @@ test_that("assaySpecServer module works as expected in the test app", {
 
   app <- AppDriver$new(
     app_dir = test_path("assaySpec"),
-    name = "assaySpec"
+    name = "assaySpec",
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   ns <- module_ns_shiny2(app)

tests/testthat/test-barplot.R

@@ -28,7 +28,8 @@ test_that("barplot module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("barplot"),
     name = "barplot",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-boxplot.R

@@ -24,7 +24,8 @@ test_that("boxplot module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("boxplot"),
     name = "boxplot",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-experimentSpec.R

@@ -98,7 +98,8 @@ test_that("experimentSpec module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("experimentSpec"),
     name = "experimentSpec",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-forest.R

@@ -28,7 +28,8 @@ test_that("forest_tte module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("forest_tte"),
     name = "forest_tte",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-geneSpec.R

@@ -41,7 +41,8 @@ test_that("geneSpec module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("geneSpec"),
     name = "geneSpec",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-km.R

@@ -29,7 +29,8 @@ test_that("km module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("km"),
     name = "km",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-pca.R

@@ -24,6 +24,7 @@ test_that("pca module works as expected in the test app", {
     app_dir = test_path("pca"),
     name = "pca",
     variant = platform_variant(),
+    load_timeout = 30000,
     seed = default_app_seed
   )
 

tests/testthat/test-quality.R

@@ -25,7 +25,8 @@ test_that("quality module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("quality"),
     name = "quality",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-sampleVarSpec.R

@@ -175,7 +175,8 @@ test_that("sampleVarSpec module works as expected in the test app", {
   app <- AppDriver$new(
     app_dir = test_path("sampleVarSpec"),
     name = "sampleVarSpec",
-    variant = platform_variant()
+    variant = platform_variant(),
+    load_timeout = 30000
   )
 
   app$wait_for_idle(timeout = 20000)

tests/testthat/test-scatterplot.R

@@ -29,6 +29,7 @@ test_that("scatterplot module works as expected in the test app", {
     app_dir = test_path("scatterplot"),
     name = "scatterplot",
     variant = platform_variant(),
+    load_timeout = 30000,
     seed = default_app_seed
   )
 

tests/testthat/test-volcanoplot.R

@@ -24,6 +24,7 @@ test_that("volcanoplot module works as expected in the test app", {
     app_dir = test_path("volcanoplot"),
     name = "volcanoplot",
     variant = platform_variant(),
+    load_timeout = 30000,
     seed = default_app_seed
   )