#104 fixed

yegor256 · May 3, 2024 · 16072a9 · 16072a9
1 parent 6a2420a
commit 16072a9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -166,6 +166,9 @@ sub check_author {
       if ($name =~ /^[A-Z][^.]+$/) {
         next
       }
+      if ($name =~ /^(van|de)$/) {
+        next
+      }
       if ($name =~ /^[A-Z]$/) {
         return "A shortened name must have a tailing dot in @{[as_position($pos)]} 'author', as in 'Knuth, Donald E.'";
       }

diff --git a/perl-tests/checks.pl b/perl-tests/checks.pl
@@ -95,6 +95,8 @@ package bibcop;
 check_passes($f, ('author' => '{Some Weird Author} and {I}'));
 check_passes($f, ('author' => '{\'A}lvarez, Carlos and Jim{\'e}nez-Gonz{\'a}lez, Daniel'));
 check_passes($f, ('author' => 'Monsalve Diaz, Jose M.'));
+check_passes($f, ('author' => 'de Mattos Fortes, Renata Pontin'));
+check_passes($f, ('author' => 'van Buren, Andre'));
 
 $f = 'check_capitalization';
 check_fails($f, ('title' => 'The TeX book'));