File biber-perl-pre5.22.0.dif of Package texlive

Overview Repositories Revisions Requests Users Attributes Meta

File biber-perl-pre5.22.0.dif of Package texlive

Also fastsort causes trouble.

---
 t/sort-order.t |   24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

--- t/sort-order.t
+++ t/sort-order.t	2016-06-14 14:21:07.085073233 +0000
@@ -4,7 +4,7 @@ use warnings;
 use utf8;
 no warnings 'utf8';
 
-use Test::More tests => 15;
+use Test::More tests => 14;
 
 use Biber;
 use Biber::Output::bbl;
@@ -32,7 +32,6 @@ $biber->set_output_obj(Biber::Output::bb
 # Options - we could set these in the control file but it's nice to see what we're
 # relying on here for tests
 Biber::Config->setoption('sortlocale', 'en_GB.UTF-8');
-Biber::Config->setoption('fastsort', 1);
 Biber::Config->setblxoption('labelyear', undef);
 Biber::Config->setblxoption('labelalpha', 0);
 
@@ -482,27 +481,6 @@ $section = $biber->sections->get_section
 is_deeply([$main->get_keys], ['L9','L6','L7','L8','L5','L4','L3','L2','L1B','L1A','L1'], 'nty with descending n');
 
 
-# testing case sensitive with fastsort
-# In alphabetic, all uppercase comes before lower so the
-# "sortcase => 1" on location means that "edinburgh" sorts at the end after "London"
-# Take this out of the location sorting spec and it fails as it should
-$S = { spec => [
-                                                    [
-                                                     {sortcase => 1},
-                                                     {'location'     => {}}
-                                                    ]
-                                                   ]};
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::bbl->new());
-# Have to set locale to something which understands lexical/case differences for this test
-# otherwise testing on Windows doesn't work ...
-Biber::Config->setoption('sortlocale', 'C.UTF-8');
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L1B','L1','L1A','L2','L3','L4','L5','L7','L8','L9','L6'], 'location - sortcase=1');
-
 # Test nosort option
 $S = { spec => [
                                                     [

Places

File biber-perl-pre5.22.0.dif of Package texlive

Places