From 2c581391b54b2629f89d12bb0c1e9c97f2a46b69 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 24 Nov 2022 00:34:16 -0500 Subject: [PATCH] just warn for the weird diacritics from SIPServer Signed-off-by: Jason Etheridge --- t/03checkout.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/03checkout.t b/t/03checkout.t index 7702b03..07722ee 100755 --- a/t/03checkout.t +++ b/t/03checkout.t @@ -128,11 +128,12 @@ foreach my $i (0 .. (scalar @{$test->{fields}})-1) { my $field = $test->{fields}[$i]; if ($field->{field} eq FID_ITEM_ID) { - $field->{pat} = qr/^$item_diacritic_barcode$/; + $field->{pat} = qr/^$item_diacritic_barcode$/; } elsif ($field->{field} eq FID_TITLE_ID) { - $field->{pat} = qr/^$item_diacritic_title\s*$/; + $field->{pat} = qr/^$item_diacritic_title\s*$/; + $field->{just_warn} = 1; } elsif ($field->{field} eq FID_OWNER) { - $field->{pat} = qr/^$item_diacritic_owner$/; + $field->{pat} = qr/^$item_diacritic_owner$/; } } -- 2.11.0