Adding some commentary around the testing

dfe-analytical-services · Feb 28, 2024 · cafbec1 · cafbec1
1 parent 73cd7b2
commit cafbec1
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 1 deletion.
diff --git a/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-003_.new.png b/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-003_.new.png
diff --git a/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-005_.new.png b/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-005_.new.png
diff --git a/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-008_.new.png b/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-008_.new.png
diff --git a/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-009_.new.png b/tests/testthat/_snaps/shinytest2/Transition-matrices-dashboard-009_.new.png
diff --git a/tests/testthat/test-shinytest2.R b/tests/testthat/test-shinytest2.R
@@ -18,16 +18,21 @@ test_that("{shinytest2} recording: Transition-matrices-dashboard", {
     name = "Transition-matrices-dashboard",
     height = 1072, width = 1176
   )
+  # Test 1 - accept cookies and switch to dashboard page
   app$click("cookies-cookie_accept")
   app$set_inputs(navlistPanel = "dashboard")
   app$expect_values(input = inputs, output = outputs)
+  # Test 2 - select percentage of pupils as metric
   app$set_inputs(num_perc_select = "Percentage of pupils")
   app$expect_values(input = inputs, output = outputs)
+  # Test 3 - select Chemistry as subject
   app$set_inputs(subjects_select = "Chemistry")
   app$expect_values(input = inputs, output = outputs)
+  # Test 4 - select attainment range
   app$set_inputs(KS2_dropdown_attainment_subject = "102.5 - 104.5")
   app$expect_values(input = inputs, output = outputs)
-  app$set_inputs(characteristic_select = "EAL")
+  # Test 4 - select a characteristic
+  app$set_inputs(characteristic_select = "EAL", KS2_dropdown_attainment_subject = "Less than 80")
   app$expect_values(input = inputs, output = outputs)
   app$set_inputs(tabsetpanels = "Pupil progress in KS4 measures")
   app$expect_values(input = inputs, output = outputs)