diff --git a/tests/suites/test_suite_ssl.function b/tests/suites/test_suite_ssl.function
index f4288d1..64ee0f7 100644
--- a/tests/suites/test_suite_ssl.function
+++ b/tests/suites/test_suite_ssl.function
@@ -4200,6 +4200,10 @@
             break;
 
         case TEST_EARLY_DATA_HRR:
+            /*
+             * Remove server support for the group negotiated in
+             * mbedtls_test_get_tls13_ticket() forcing an HelloRetryRequest.
+             */
             server_options.group_list = group_list + 1;
             break;
 
@@ -4570,6 +4574,10 @@
             break;
 
         case TEST_EARLY_DATA_HRR:
+            /*
+             * Remove server support for the group negotiated in
+             * mbedtls_test_get_tls13_ticket() forcing an HelloRetryRequest.
+             */
             server_options.group_list = group_list + 1;
             ret = mbedtls_snprintf(
                 pattern, sizeof(pattern),
@@ -4628,6 +4636,11 @@
     do {
         uint32_t read_early_data_size = 0;
 
+        /*
+         * The contents of the early data are not very important, write a
+         * pattern that varies byte-by-byte and is different for every chunk of
+         * early data.
+         */
         if ((written_early_data_size + write_size) > max_early_data_size) {
             break;
         }