#72 more tests

yegor256 · Mar 15, 2024 · ee50bf2 · ee50bf2
1 parent 4af19e7
commit ee50bf2
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/perl-tests/checking.pl b/perl-tests/checking.pl
@@ -26,18 +26,35 @@ package bibcop;
 use strict;
 use warnings;
 
+# not enough fields
 fails((':type' => 'book', 'title' => 'The TeX Book'));
 fails((':type' => 'book', 'author' => 'Knuth, Donald'));
 fails((':type' => 'book', 'year' => '1984'));
+
+# dot inside title
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Jeff', 'title' => '{Comm. of the ACM}'));
+
+# wrong author name
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth, Donald E', 'title' => '{CACM}'));
+
+# year inside title
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{1984 CACM}'));
+
+# dot inside title
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{CACM.}'));
+
+# wrong format of pages
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{CACM}', 'pages'=>'4a'));
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{CACM}', 'pages'=>'4-5'));
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{CACM}', 'pages'=>'54--21'));
+
+# redundant space in title
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{The Article , a Good One}'));
+
+# wrong doi
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{The Title}', 'doi' => 'http://dx.doi.org/1/1'));
+
+# wrong capitalization
 fails((':type' => 'misc', 'year' => '1984', 'author' => 'Knuth', 'title' => '{Object-oriented Programming}'));
 
 passes((