Test edge case of pressing button with no data selected

SAFEHR-data · Oct 31, 2024 · ca3cf83 · ca3cf83
1 parent 3a47023
commit ca3cf83
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/tests/testthat/test-mod_select_for_export.R b/tests/testthat/test-mod_select_for_export.R
@@ -16,14 +16,20 @@ test_that("mod_select_for_export_server only reacts to button click", {
       expect_type(out(), "character")
       expect_length(out(), 0)
 
+      # Clicking the button without input should just do nothing
+      session$setInputs(add_to_export = 1)
+      session$flushReact()
+      expect_length(out(), 0)
+
+
       # Update input data, the output should not be updated
       n_selected <- 10
       concepts_data(data.frame(concept_id = seq_len(n_selected)))
       session$flushReact()
       expect_length(out(), 0)
 
       # Mimic button clicking, the output show now be updated
-      session$setInputs(add_to_export = 1)
+      session$setInputs(add_to_export = 2)
       session$flushReact()
       expect_length(out(), n_selected)
     }