diff --git a/inst/WORDLIST b/inst/WORDLIST index 008e01b1..8d0da384 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -1,8 +1,10 @@ +Bové Forkers Hoffmann Lyndsee Midori RNAseq +Sabanés UI funder hermes diff --git a/tests/testthat/test-adtteSpec.R b/tests/testthat/test-adtteSpec.R index ca781c65..f4d30215 100644 --- a/tests/testthat/test-adtteSpec.R +++ b/tests/testthat/test-adtteSpec.R @@ -226,7 +226,7 @@ test_that("adtteSpecServer module works as expected in the test app", { app$set_inputs(!!ns2("add-ADTTE-filter-var_to_add") := "PARAMCD") app$set_inputs(!!ns2("active-ADTTE-filter-ADTTE_PARAMCD-inputs-selection") := "OS") - app$wait_for_idle() + app$wait_for_idle(timeout = 20000) # We expect to get a validation message (also a notification box but we cannot test that) res <- app$get_value(output = ns("summary")) expect_equal(res$message, "please select an endpoint") diff --git a/tests/testthat/test-pca.R b/tests/testthat/test-pca.R index a47c8357..50a8ad59 100644 --- a/tests/testthat/test-pca.R +++ b/tests/testthat/test-pca.R @@ -214,7 +214,7 @@ test_that("pca module works as expected in the test app", { # Change to another experiment and check that it did not change. app$set_inputs(!!ns("experiment-name") := "hd2") - app$wait_for_idle() + app$wait_for_idle(timeout = 20000) res <- app$get_value(input = ns("n_top")) expect_identical(res, 777L) diff --git a/tests/testthat/test-scatterplot.R b/tests/testthat/test-scatterplot.R index 9495d235..6aeb20ed 100644 --- a/tests/testthat/test-scatterplot.R +++ b/tests/testthat/test-scatterplot.R @@ -68,6 +68,7 @@ test_that("scatterplot module works as expected in the test app", { app$set_inputs(!!ns2("add-MAE-subjects-var_to_add") := "SEX") app$set_inputs(!!ns2("active-MAE-subjects-MAE_SEX-inputs-selection") := "F") + app$wait_for_idle() res <- app$get_value(input = ns("x_spec-genes")) expect_identical(res, "GeneID:503538") res <- app$wait_for_value(input = ns("y_spec-genes"))