diff options
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/t/14-sections.t')
-rwxr-xr-x | Master/texmf-dist/source/bibtex/biber/t/14-sections.t | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/Master/texmf-dist/source/bibtex/biber/t/14-sections.t b/Master/texmf-dist/source/bibtex/biber/t/14-sections.t deleted file mode 100755 index 2414da99f58..00000000000 --- a/Master/texmf-dist/source/bibtex/biber/t/14-sections.t +++ /dev/null @@ -1,98 +0,0 @@ -use strict; -use warnings; -use utf8; -no warnings 'utf8'; - -use Test::More tests => 14; -use Biber; -use Biber::Constants; -use Biber::Utils; -use Biber::Output::BBL; -use Log::Log4perl qw(:easy); -Log::Log4perl->easy_init($ERROR); -chdir("t/tdata"); - -my $biber = Biber->new(noconf => 1); -$biber->parse_ctrlfile('sections.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 options -Biber::Config->setoption('fastsort', 1); -Biber::Config->setoption('bblsafechars', 1); - -# Now generate the information -$biber->prepare; -my $out = $biber->get_output_obj; -my $section0 = $biber->sections->get_section(0); -my $main0 = $section0->get_list('MAIN'); -my $shs0 = $section0->get_list('SHORTHANDS'); -my $section1 = $biber->sections->get_section(1); -my $main1 = $section1->get_list('MAIN'); -my $shs1 = $section1->get_list('SHORTHANDS'); -my $section2 = $biber->sections->get_section(2); -my $main2 = $section2->get_list('MAIN'); -my $shs2 = $section2->get_list('SHORTHANDS'); -my $section3 = $biber->sections->get_section(3); -my $main3 = $section3->get_list('MAIN'); -my $shs3 = $section3->get_list('SHORTHANDS'); - -my $preamble = [ - 'Štring for Preamble 1', - 'String for Preamble 2', - 'String for Preamble 3', - 'String for Preamble 4' - ]; - -my $v = $Biber::VERSION; -if ($Biber::BETA_VERSION) { - $v .= ' (beta)'; -} - -my $head = qq|% \$ biblatex auxiliary file \$ -% \$ biblatex version $BIBLATEX_VERSION \$ -% \$ biber version $v \$ -% Do not modify the above lines! -% -% This is an auxiliary file used by the 'biblatex' package. -% This file may safely be deleted. It will be recreated by -% biber or bibtex as required. -% -\\begingroup -\\makeatletter -\\\@ifundefined{ver\@biblatex.sty} - {\\\@latex\@error - {Missing 'biblatex' package} - {The bibliography requires the 'biblatex' package.} - \\aftergroup\\endinput} - {} -\\endgroup - -\\preamble{% -\\v{S}tring for Preamble 1% -String for Preamble 2% -String for Preamble 3% -String for Preamble 4% -} - -|; - -is_deeply($biber->get_preamble, $preamble, 'Preamble for all sections'); -is($section0->bibentry('sect1')->get_field('note'), 'value1', 'Section 0 macro test'); -# If macros were not reset between sections, this would give a macro redef error -is($section1->bibentry('sect4')->get_field('note'), 'value2', 'Section 1 macro test'); -is_deeply([$main0->get_keys], ['sect1', 'sect2', 'sect3', 'sect8'], 'Section 0 citekeys'); -is_deeply([$shs0->get_keys], ['sect1', 'sect2', 'sect8'], 'Section 0 shorthands'); -is_deeply([$main1->get_keys], ['sect4', 'sect5'], 'Section 1 citekeys'); -is_deeply([$shs1->get_keys], ['sect4', 'sect5'], 'Section 1 shorthands'); -is_deeply([$main2->get_keys], ['sect1', 'sect6', 'sect7'], 'Section 2 citekeys'); -is_deeply([$shs2->get_keys], ['sect1', 'sect6', 'sect7'], 'Section 2 shorthands'); -is_deeply([$section3->get_orig_order_citekeys], ['sect1', 'sect2', 'sectall1'], 'Section 3 citekeys'); -is($out->get_output_section(0)->number, '0', 'Checking output sections - 1'); -is($out->get_output_section(1)->number, '1', 'Checking output sections - 2'); -is($out->get_output_section(2)->number, '2', 'Checking output sections - 3'); -is($out->get_output_head, $head, 'Preamble output check with bblsafechars'); - -unlink <*.utf8>; |