1 files changed, 98 insertions, 0 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
new file mode 100755
index 00000000000..2414da99f58
--- /dev/null
+++ b/Master/texmf-dist/source/bibtex/biber/t/14-sections.t
@@ -0,0 +1,98 @@
+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>;