Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

add idling time #384

Merged
merged 2 commits into from
Jun 10, 2024
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions inst/WORDLIST
Original file line number Diff line number Diff line change
@@ -1,8 +1,10 @@
Bové
Forkers
Hoffmann
Lyndsee
Midori
RNAseq
Sabanés
UI
funder
hermes
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-adtteSpec.R
Original file line number Diff line number Diff line change
Expand Up @@ -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")
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-pca.R
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions tests/testthat/test-scatterplot.R
Original file line number Diff line number Diff line change
Expand Up @@ -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"))
Expand Down
Loading