test test

Author: zsigmas

tests/testthat/test-all.R

@@ -1,3 +1,19 @@
+test_that(
+  "Column labels are shown as names in data listings if present" |>
+    vdoc[["add_spec"]](c(specs$listings$column_labels)),
+  {
+    app <- shinytest2::AppDriver$new(root_app_url)
+    app$wait_for_idle(wait_for_idle_ms)
+    app$set_inputs("papo-listings-column_selector_adae" = c("USUBJID"))
+    app$wait_for_idle(wait_for_idle_ms)
+
+    selected_data <- app$get_values()[["export"]][["papo-listings-test_data"]][["filtered_data"]]
+    expect_equal(attr(selected_data[["USUBJID"]], "label"), "Unique Subject Identifier")
+
+    app$stop()
+  }
+)
+
 test_that(
   "functional subject_selector" |>
     vdoc[["add_spec"]](c(specs$common$subject_selector)),
@@ -159,22 +175,6 @@ test_that(
   }
 )
 
-test_that(
-  "Column labels are shown as names in data listings if present" |>
-    vdoc[["add_spec"]](c(specs$listings$column_labels)),
-  {
-    app <- shinytest2::AppDriver$new(root_app_url)
-    app$wait_for_idle(wait_for_idle_ms)
-    app$set_inputs("papo-listings-column_selector_adae" = c("USUBJID"))
-    app$wait_for_idle(wait_for_idle_ms)
-
-    selected_data <- app$get_values()[["export"]][["papo-listings-test_data"]][["filtered_data"]]
-    expect_equal(attr(selected_data[["USUBJID"]], "label"), "Unique Subject Identifier")
-
-    app$stop()
-  }
-)
-
 test_that(
   "Tab controls allow listing switching" |>
     vdoc[["add_spec"]](c(specs$listings$switching, specs$listings$extra_column_selection)),