summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/bibtex/biber/t/14-sections.t
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/t/14-sections.t')
-rwxr-xr-xMaster/texmf-dist/source/bibtex/biber/t/14-sections.t98
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>;