skip appDriver tests

Author: gogonzo

tests/testthat/test-examples.R

@@ -152,6 +152,7 @@ for (i in rd_files()) {
     paste0("example-", basename(i)),
     {
       testthat::skip_on_cran()
+      testthat::skip("chromium")
       skip_if_too_deep(5)
       testthat::skip_if_not_installed("pkgload")
       if (basename(i) %in% strict_exceptions) {

tests/testthat/test-shinytest2-tm_a_pca.R

@@ -32,6 +32,7 @@ app_driver_tm_a_pca <- function() {
 }
 
 testthat::test_that("e2e - tm_a_pca: Module is initialised with the specified defaults in function call.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -56,6 +57,7 @@ testthat::test_that("e2e - tm_a_pca: Module is initialised with the specified de
 })
 
 testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract selection Murder/Assault on header.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -73,6 +75,7 @@ testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract
 })
 
 testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract selection Murder/UrbanPop on header.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -90,6 +93,7 @@ testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract
 })
 
 testthat::test_that("e2e - tm_a_pca: Color by columns (data_extract) must be from non-selected variable set.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -107,6 +111,7 @@ testthat::test_that("e2e - tm_a_pca: Color by columns (data_extract) must be fro
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of tables_display does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -128,6 +133,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of tables_display
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings for 'plot type' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -151,6 +157,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings for 'plot type' d
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'standardization' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -169,6 +176,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'standardizati
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'NA action' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -183,6 +191,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'NA action' do
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'plot_type' hides and shows options.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -215,6 +224,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'plot_type' hi
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'theme' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -233,6 +243,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'theme' does n
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'font size' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()

tests/testthat/test-shinytest2-tm_a_regression.R

@@ -46,6 +46,7 @@ app_driver_tm_a_regression <- function() {
 }
 
 testthat::test_that("e2e - tm_a_regression: Data parameter and module label is passed properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -64,6 +65,7 @@ testthat::test_that("e2e - tm_a_regression: Data parameter and module label is p
 
 testthat::test_that("e2e - tm_a_regression:
   Data extract spec elements are initialized with the default values specified by response and regressor arg.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -83,6 +85,7 @@ testthat::test_that("e2e - tm_a_regression:
 })
 
 testthat::test_that("e2e - tm_a_regression: Plot type is set properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -96,6 +99,7 @@ testthat::test_that("e2e - tm_a_regression: Plot type is set properly.", {
 
 testthat::test_that("e2e - tm_a_regression:
   Plot type has 7 specific choices & changing choices does not throw errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -123,6 +127,7 @@ testthat::test_that("e2e - tm_a_regression:
 })
 
 testthat::test_that("e2e - tm_a_regression: Outlier definition and label are visible by default.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -135,6 +140,7 @@ testthat::test_that("e2e - tm_a_regression: Outlier definition and label are vis
 })
 
 testthat::test_that("e2e - tm_a_regression: Outlier definition and label have default values and label text.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -163,6 +169,7 @@ testthat::test_that("e2e - tm_a_regression: Outlier definition and label have de
 })
 
 testthat::test_that("e2e - tm_a_regression: Unchecking display outlier hides outlier label and definition.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()

tests/testthat/test-shinytest2-tm_data_table.R

@@ -21,6 +21,7 @@ app_driver_tm_data_table <- function() {
 }
 
 test_that("e2e - tm_data_table: Initializes without errors", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -35,6 +36,7 @@ test_that("e2e - tm_data_table: Initializes without errors", {
 })
 
 test_that("e2e - tm_data_table: Verify checkbox displayed over data table", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -44,6 +46,7 @@ test_that("e2e - tm_data_table: Verify checkbox displayed over data table", {
 })
 
 test_that("e2e - tm_data_table: Verify module displays data table", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -80,6 +83,7 @@ test_that("e2e - tm_data_table: Verify module displays data table", {
 })
 
 test_that("e2e - tm_data_table: Verify default variable selection and set new selection", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 

tests/testthat/test-shinytest2-tm_file_viewer.R

@@ -17,6 +17,7 @@ app_driver_tm_file_viewer <- function() {
 }
 
 test_that("e2e - tm_file_viewer: Initializes without errors and shows files tree specified in input_path argument", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -42,6 +43,7 @@ test_that("e2e - tm_file_viewer: Initializes without errors and shows files tree
 })
 
 test_that("e2e - tm_file_viewer: Shows selected image file", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -58,6 +60,7 @@ test_that("e2e - tm_file_viewer: Shows selected image file", {
 })
 
 test_that("e2e - tm_file_viewer: Shows selected text file", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -80,6 +83,7 @@ test_that("e2e - tm_file_viewer: Shows selected text file", {
 })
 
 test_that("e2e - tm_file_viewer: Shows selected url", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 

tests/testthat/test-shinytest2-tm_front_page.R

@@ -22,6 +22,7 @@ app_driver_tm_front_page <- function() {
 }
 
 test_that("e2e - tm_front_page: Initializes without errors and check html elements", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
 
@@ -46,6 +47,7 @@ test_that("e2e - tm_front_page: Initializes without errors and check html elemen
 })
 
 test_that("e2e - tm_front_page: Verify the module displays tables", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
   # tables
@@ -58,6 +60,7 @@ test_that("e2e - tm_front_page: Verify the module displays tables", {
 })
 
 test_that("e2e - tm_front_page: Verify the module displays metadata", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
 

tests/testthat/test-shinytest2-tm_g_association.R

@@ -45,6 +45,7 @@ app_driver_tm_g_association <- function() {
 }
 
 testthat::test_that("e2e - tm_g_association: Data parameter and module label is passed properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_association()
@@ -63,6 +64,7 @@ testthat::test_that("e2e - tm_g_association: Data parameter and module label is
 
 testthat::test_that("e2e - tm_g_association:
   Data extract spec elements are initialized with the default values specified by ref and vars arguments.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()
 
@@ -84,6 +86,7 @@ testthat::test_that("e2e - tm_g_association:
 })
 
 testthat::test_that("e2e - tm_g_association: Module plot is visible.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()
 
@@ -93,6 +96,7 @@ testthat::test_that("e2e - tm_g_association: Module plot is visible.", {
 })
 
 testthat::test_that("e2e - tm_g_association: Check and set default values for radio buttons.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()
 

tests/testthat/test-shinytest2-tm_g_bivariate.R

@@ -85,6 +85,7 @@ app_driver_tm_g_bivariate <- function() {
 }
 
 testthat::test_that("e2e - tm_g_bivariate: Module is initialised with the specified defaults.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_bivariate()
@@ -113,6 +114,7 @@ testthat::test_that("e2e - tm_g_bivariate: Module is initialised with the specif
 })
 
 testthat::test_that("e2e - tm_g_bivariate: Coloring options are hidden when coloring is toggled off.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_bivariate()
 
@@ -154,6 +156,7 @@ testthat::test_that("e2e - tm_g_bivariate: Coloring options are hidden when colo
 })
 
 testthat::test_that("e2e - tm_g_bivariate: Facetting options are hidden when facet is toggled off.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_bivariate()
@@ -190,6 +193,7 @@ testthat::test_that("e2e - tm_g_bivariate: Facetting options are hidden when fac
 })
 
 testthat::test_that("e2e - tm_g_bivariate: Setting encoding inputs produces outputs without validation errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_bivariate()

tests/testthat/test-shinytest2-tm_g_distribution.R

@@ -45,6 +45,7 @@ app_driver_tm_g_distribution <- function() {
 }
 
 testthat::test_that("e2e - tm_g_distribution: Module is initialised with the specified defaults.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_distribution()
@@ -69,6 +70,7 @@ testthat::test_that("e2e - tm_g_distribution: Module is initialised with the spe
 })
 
 testthat::test_that("e2e - tm_g_distribution: Histogram encoding inputs produce output without validation errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_distribution()
@@ -106,6 +108,7 @@ testthat::test_that("e2e - tm_g_distribution: Histogram encoding inputs produce
 })
 
 testthat::test_that("e2e - tm_g_distribution: QQ plot encoding inputs produce output without validation errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_distribution()

tests/testthat/test-shinytest2-tm_g_response.R

@@ -40,6 +40,7 @@ app_driver_tm_g_response <- function() {
 }
 
 testthat::test_that("e2e - tm_g_response: module is initialised with the specified defaults.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_response()
@@ -58,6 +59,7 @@ testthat::test_that("e2e - tm_g_response: module is initialised with the specifi
 })
 
 testthat::test_that("e2e - tm_g_response: encoding inputs produce output without validation errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_response()
@@ -88,6 +90,7 @@ testthat::test_that("e2e - tm_g_response: encoding inputs produce output without
 })
 
 testthat::test_that("e2e - tm_g_response: deselecting response produces validation error.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_response()
@@ -99,6 +102,7 @@ testthat::test_that("e2e - tm_g_response: deselecting response produces validati
 })
 
 testthat::test_that("e2e - tm_g_response: deselecting x produces validation error.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_response()