summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/bibtex/biber/t/10-sort-order.t
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/t/10-sort-order.t')
-rwxr-xr-xMaster/texmf-dist/source/bibtex/biber/t/10-sort-order.t518
1 files changed, 0 insertions, 518 deletions
diff --git a/Master/texmf-dist/source/bibtex/biber/t/10-sort-order.t b/Master/texmf-dist/source/bibtex/biber/t/10-sort-order.t
deleted file mode 100755
index f412f23b65b..00000000000
--- a/Master/texmf-dist/source/bibtex/biber/t/10-sort-order.t
+++ /dev/null
@@ -1,518 +0,0 @@
-use strict;
-use warnings;
-use utf8;
-no warnings 'utf8';
-
-use Test::More tests => 13;
-
-use Biber;
-use Biber::Output::BBL;
-use Log::Log4perl qw(:easy);
-Log::Log4perl->easy_init($ERROR);
-chdir("t/tdata") ;
-my $S;
-
-# Set up Biber object
-my $biber = Biber->new(noconf => 1);
-$biber->parse_ctrlfile('sort-order.bcf');
-$biber->set_output_obj(Biber::Output::BBL->new());
-
-# 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('fastsort', 1);
-
-# citeorder (sorting=none)
-$S = [
- [
- {},
- {'citeorder' => {}}
- ]
- ];
-Biber::Config->setblxoption('sorting', {default => $S});
-Biber::Config->setblxoption('labelyear', undef);
-
-# (re)generate informtion based on option settings
-$biber->prepare;
-my $section = $biber->sections->get_section(0);
-my $main = $section->get_list('MAIN');
-
-is_deeply([ $main->get_keys ], ['L2','L1B','L1','L4','L3','L5','L1A','L7','L8','L6','L9'], 'citeorder');
-
-# nty
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'volume' => {}},
- {'0000' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([ $main->get_keys ], ['L5','L1A','L1','L1B','L2','L3','L4','L8','L7','L6','L9'], 'nty');
-
-# nyt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'volume' => {}},
- {'0000' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L5','L1A','L1','L1B','L2','L3','L4','L8','L7','L6','L9'], 'nyt');
-
-# nyvt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'volume' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ]
- ];
-
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L5','L1','L1A','L1B','L2','L3','L4','L8','L7','L6','L9'], 'nyvt');
-
-# nyvt with volume padding
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'volume' => {pad_side => 'right'}},
- {'0000' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ]
- ];
-
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L5','L1A','L1','L1B','L2','L3','L4','L8','L7','L6','L9'], 'nyvt with volume padding');
-
-# ynt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'9999' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L3','L1B','L1A','L1','L4','L2','L8','L7','L6','L9','L5'], 'ynt');
-
-# ynt with year substring
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {'substring_side' => 'left',
- 'substring_width' => 3}},
- {'9999' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L3','L1B','L1A','L1','L2','L4','L8','L7','L6','L9','L5'], 'ynt with year substring');
-
-# ydnt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {sort_direction => 'descending'},
- {'sortyear' => {}},
- {'year' => {}},
- {'9999' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-# This is correct as "aaaaaa" sorts before all years when descending
-is_deeply([$main->get_keys], ['L5','L9','L6','L7','L8','L2','L4','L1A','L1','L1B','L3'], 'ydnt');
-
-# anyt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {},
- {'labelalpha' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'0000' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-Biber::Config->setblxoption('labelalpha', 1);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L1B','L1A','L1','L2','L3','L4','L5','L8','L7','L6','L9'], 'anyt');
-
-Biber::Config->setblxoption('labelalpha', 0);
-
-# anyvt
-$S = [
- [
- {},
- {'presort' => {}}
- ],
- [
- {},
- {'labelalpha' => {}}
- ],
- [
- {final => 1,
- },
- {'sortkey' => {}}
- ],
- [
- {},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'volume' => {}},
- {'0000' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-Biber::Config->setblxoption('labelalpha', 1);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L1B','L1','L1A','L2','L3','L4','L5','L8','L7','L6','L9'], 'anyvt');
-
-
-# nty with descending n
-$S = [
- [
- {sort_direction => 'descending'},
- {'sortname' => {}},
- {'author' => {}},
- {'editor' => {}},
- {'translator' => {}},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sorttitle' => {}},
- {'title' => {}}
- ],
- [
- {},
- {'sortyear' => {}},
- {'year' => {}},
- {'0000' => {}}
- ],
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-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 = [
- [
- {sortcase => 1},
- {'location' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-# Have to set local to something which understand lexical/case differences for this test
-# otherwise testing on Windows doesn't work ...
-Biber::Config->setoption('sortlocale', 'C');
-$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 = [
- [
- {},
- {'title' => {}}
- ]
- ];
-
-$main->set_sortscheme($S);
-# Set nosort for tests, skipping "The " in titles so L7 should sort before L6
-Biber::Config->setoption('nosort', { type_title => q/\AThe\s+/ });
-
-$biber->set_output_obj(Biber::Output::BBL->new());
-$biber->prepare;
-$section = $biber->sections->get_section(0);
-is_deeply([$main->get_keys], ['L1A','L1','L1B','L2','L3','L4','L5','L7','L6','L9','L8'], 'nosort 1');
-
-unlink <*.utf8>;