provide warnings for missing optional fields

diff --git a/t/SIPtest.pm b/t/SIPtest.pm
index 8e86524..7e03c4b 100644 (file)
--- a/t/SIPtest.pm
+++ b/t/SIPtest.pm
@@ -298,6 +298,9 @@ sub one_msg {
                 }
                 return;
             }
+            if (!$ftest->{required} && !exists($fields{$field})) {
+                diag("WARNING: $test->{id}: optional field '$field' not found in msg " . substr($resp,0,2));
+            }
 
             if (exists($fields{$field}) && (decode_utf8($fields{$field}) !~ $ftest->{pat})) {
                 diag("Field '$field' pattern '$ftest->{pat}' fails to match value '$fields{$field}' in message '$resp'");