From 56557a66fb2b7b19c4c2550d1f602bfcca6d3e75 Mon Sep 17 00:00:00 2001
From: Yegor Bugayenko <yegor256@gmail.com>
Date: Fri, 3 May 2024 07:15:37 +0300
Subject: [PATCH] #107 test

---
 bibcop.pl            | 2 +-
 perl-tests/checks.pl | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/bibcop.pl b/bibcop.pl
index 0c9d88c..04ecac0 100755
--- a/bibcop.pl
+++ b/bibcop.pl
@@ -166,7 +166,7 @@ sub check_author {
       if ($name =~ /^[A-Z][^.]+$/) {
         next
       }
-      if ($name =~ /^(van|de|der)$/) {
+      if ($name =~ /^(van|de|der|dos)$/) {
         next
       }
       if ($name =~ /^[A-Z]$/) {
diff --git a/perl-tests/checks.pl b/perl-tests/checks.pl
index 42a596a..0075a0e 100755
--- a/perl-tests/checks.pl
+++ b/perl-tests/checks.pl
@@ -99,6 +99,7 @@ package bibcop;
 check_passes($f, ('author' => 'de Mattos Fortes, Renata Pontin'));
 check_passes($f, ('author' => 'van Buren, Andre'));
 check_passes($f, ('author' => 'van der Meulen, Meine J. P.'));
+check_passes($f, ('author' => 'dos Santos Carapu{\c{c}}a, Rog{\\\'e}rio'));
 
 $f = 'check_capitalization';
 check_fails($f, ('title' => 'The TeX book'));