diff --git a/tests/testthat/test-adtteSpec.R b/tests/testthat/test-adtteSpec.R index daca5253..ca781c65 100644 --- a/tests/testthat/test-adtteSpec.R +++ b/tests/testthat/test-adtteSpec.R @@ -239,6 +239,8 @@ test_that("adtteSpecServer module works as expected in the test app", { app$wait_for_idle() res <- app$get_value(output = ns("summary")) expect_equal(res$message, "please select an endpoint") + + app$stop() }) # nolint end diff --git a/tests/testthat/test-assaySpec.R b/tests/testthat/test-assaySpec.R index 6ca03fce..99000475 100644 --- a/tests/testthat/test-assaySpec.R +++ b/tests/testthat/test-assaySpec.R @@ -58,6 +58,8 @@ test_that("assaySpecServer module works as expected in the test app", { app$wait_for_idle() res <- app$get_value(output = ns("result")) expect_identical(res, "[1] \"\"") + + app$stop() }) # nolint end diff --git a/tests/testthat/test-barplot.R b/tests/testthat/test-barplot.R index b0cebb0d..7f29ccb7 100644 --- a/tests/testthat/test-barplot.R +++ b/tests/testthat/test-barplot.R @@ -90,6 +90,8 @@ test_that("barplot module works as expected in the test app", { app$wait_for_idle() app$expect_select_screenshot(ns("plot-plot_out_main")) + + app$stop() }) # nolint end diff --git a/tests/testthat/test-boxplot.R b/tests/testthat/test-boxplot.R index f7a7f5d1..81533782 100644 --- a/tests/testthat/test-boxplot.R +++ b/tests/testthat/test-boxplot.R @@ -60,6 +60,8 @@ test_that("boxplot module works as expected in the test app", { app$wait_for_idle() app$expect_select_screenshot(ns("plot-plot_out_main")) + + app$stop() }) # nolint end diff --git a/tests/testthat/test-experimentSpec.R b/tests/testthat/test-experimentSpec.R index 5c408b4d..427fee0e 100644 --- a/tests/testthat/test-experimentSpec.R +++ b/tests/testthat/test-experimentSpec.R @@ -195,6 +195,8 @@ test_that("experimentSpec module works as expected in the test app", { res <- app$get_value(output = ns("summary")) expect_match(res, "HermesData object with 9 samples of 2500 genes") + + app$stop() }) # nolint end diff --git a/tests/testthat/test-forest.R b/tests/testthat/test-forest.R index abd0fff0..f9b666f0 100644 --- a/tests/testthat/test-forest.R +++ b/tests/testthat/test-forest.R @@ -62,6 +62,8 @@ test_that("forest_tte module works as expected in the test app", { app$wait_for_idle() app$expect_select_screenshot(ns("plot-plot_out_main")) + + app$stop() }) # nolint end diff --git a/tests/testthat/test-geneSpec.R b/tests/testthat/test-geneSpec.R index f7334c70..f59e9e89 100644 --- a/tests/testthat/test-geneSpec.R +++ b/tests/testthat/test-geneSpec.R @@ -125,6 +125,8 @@ test_that("geneSpec module works as expected in the test app", { app$wait_for_idle() res <- app$get_value(input = ns("my_genes-genes")) expect_set_equal(res, c("GeneID:10061", "GeneID:28")) + + app$stop() }) # nolint end diff --git a/tests/testthat/test-km.R b/tests/testthat/test-km.R index d9e34f75..38e1d47f 100644 --- a/tests/testthat/test-km.R +++ b/tests/testthat/test-km.R @@ -61,6 +61,7 @@ test_that("km module works as expected in the test app", { app$wait_for_idle() app$expect_select_screenshot(ns("plot-plot_out_main")) + app$stop() }) # nolint end diff --git a/tests/testthat/test-pca.R b/tests/testthat/test-pca.R index 405d2360..ef84a510 100644 --- a/tests/testthat/test-pca.R +++ b/tests/testthat/test-pca.R @@ -216,6 +216,7 @@ test_that("pca module works as expected in the test app", { app$set_inputs(!!ns("filter_top") := "TRUE") res <- app$wait_for_value(input = ns("n_top")) expect_identical(res, 2500L) + app$stop() }) # nolint end diff --git a/tests/testthat/test-quality.R b/tests/testthat/test-quality.R index 74b2f79d..4c334739 100644 --- a/tests/testthat/test-quality.R +++ b/tests/testthat/test-quality.R @@ -68,6 +68,7 @@ test_that("quality module works as expected in the test app", { app$set_inputs(!!ns("plot_type") := "Top Genes Plot") app$set_inputs(!!ns("assay-name") := "cpm") app$expect_select_screenshot(ns("plot-plot_out_main")) + app$stop() }) # nolint end diff --git a/tests/testthat/test-sampleVarSpec.R b/tests/testthat/test-sampleVarSpec.R index 4746074f..ce2b8ca7 100644 --- a/tests/testthat/test-sampleVarSpec.R +++ b/tests/testthat/test-sampleVarSpec.R @@ -220,6 +220,7 @@ test_that("sampleVarSpec module works as expected in the test app", { # Check the output and which levels are reported there. res <- app$get_value(output = ns("summary")) expect_match(res, "< 18/>= 18 \n 5 ") + app$stop() }) # nolint end diff --git a/tests/testthat/test-scatterplot.R b/tests/testthat/test-scatterplot.R index 53124350..beab64fb 100644 --- a/tests/testthat/test-scatterplot.R +++ b/tests/testthat/test-scatterplot.R @@ -91,6 +91,8 @@ test_that("scatterplot module works as expected in the test app", { app$wait_for_idle() app$expect_select_screenshot(ns("plot-plot_out_main")) + + app$stop() }) # nolint end diff --git a/tests/testthat/test-volcanoplot.R b/tests/testthat/test-volcanoplot.R index 0e36ad75..7bcca117 100644 --- a/tests/testthat/test-volcanoplot.R +++ b/tests/testthat/test-volcanoplot.R @@ -52,6 +52,7 @@ test_that("volcanoplot module works as expected in the test app", { app$set_inputs(!!ns("log2_fc_thresh") := 8) app$expect_select_screenshot(ns("plot-plot_out_main")) + app$stop() }) # nolint end