#107 test

yegor256 · May 3, 2024 · 56557a6 · 56557a6
1 parent da000e9
commit 56557a6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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'));