From d5b8d64e24d567f284e6efa6bbee874f370f7459 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Wed, 23 Nov 2022 13:57:40 -0500 Subject: [PATCH] add just_warn flag on field tests for "soft fails" Signed-off-by: Jason Etheridge --- t/SIPtest.pm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/t/SIPtest.pm b/t/SIPtest.pm index aa23533..dfb2051 100644 --- a/t/SIPtest.pm +++ b/t/SIPtest.pm @@ -278,13 +278,24 @@ sub one_msg { my $field = $ftest->{field}; if ($ftest->{required} && !exists($fields{$field})) { - fail("$test->{id}: required field '$field' not found in '$resp'"); + if ($ftest->{just_warn}) { + diag("SOFT FAIL: $test->{id}: required field '$field' not found in '$resp'"); + pass("$test->{id}"); + } else { + fail("$test->{id}: required field '$field' not found in '$resp'"); + } return; } if (exists($fields{$field}) && (decode_utf8($fields{$field}) !~ $ftest->{pat})) { - fail("$test->{id} field test $field"); diag("Field '$field' pattern '$ftest->{pat}' fails to match value '$fields{$field}' in message '$resp'"); + if ($ftest->{just_warn}) { + diag("SOFT FAIL: $test->{id} field test $field"); + pass("$test->{id}"); + } else { + fail("$test->{id} field test $field"); + } + return; } } -- 2.11.0