add just_warn flag for use by a leader test

diff --git a/t/SIPtest.pm b/t/SIPtest.pm
index dfb2051..9c395be 100644 (file)
--- a/t/SIPtest.pm
+++ b/t/SIPtest.pm
@@ -257,8 +257,13 @@ sub one_msg {
         return;
     }
     if ($resp !~ $test->{pat}) {
-        fail("match leader $test->{id}");
-        diag("Response '$resp' doesn't match pattern '$test->{pat}'");
+        if ($test->{just_warn}) {
+            pass("$test->{id}");
+            diag("SOFT FAIL: Response '$resp' doesn't match pattern '$test->{pat}'");
+        } else {
+            fail("match leader $test->{id}");
+            diag("Response '$resp' doesn't match pattern '$test->{pat}'");
+        }
         return;
     }