#29 pages comparing fixed

yegor256 · May 17, 2023 · f180276 · f180276
1 parent 32c72f3
commit f180276
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -391,8 +391,8 @@ sub check_pages {
       if ($parts[0] eq $parts[1]) {
         return "The 'pages' mentions the same page twice, just use it once"
       }
-      if ($parts[0] gt $parts[1]) {
-        return "The 'pages' are in the wrong order"
+      if ($parts[0] > $parts[1]) {
+        return "The 'pages' are in the wrong order, since $parts[0] is greater than $parts[1]"
       }
     }
   }

diff --git a/perl-tests/checking.pl b/perl-tests/checking.pl
@@ -55,7 +55,7 @@ package bibcop;
   'year' => '1984',
   'volume' => '32',
   'doi' => '10.5555/1102013',
-  'pages' => '22--33'
+  'pages' => '89--100'
 ));
 passes((
   ':type' => 'inproceedings',

diff --git a/perl-tests/checks.pl b/perl-tests/checks.pl
@@ -102,6 +102,7 @@ package bibcop;
 check_fails($f, ('pages' => '32--12'));
 check_passes($f, ('pages' => '123'));
 check_passes($f, ('pages' => '42--43'));
+check_passes($f, ('pages' => '89--100'));
 
 $f = 'check_type_capitalization';
 check_fails($f, (':type' => 'Article'));