diff options
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/t/18-bibtex-aliases.t')
-rwxr-xr-x | Master/texmf-dist/source/bibtex/biber/t/18-bibtex-aliases.t | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/Master/texmf-dist/source/bibtex/biber/t/18-bibtex-aliases.t b/Master/texmf-dist/source/bibtex/biber/t/18-bibtex-aliases.t deleted file mode 100755 index 38b3f0230fb..00000000000 --- a/Master/texmf-dist/source/bibtex/biber/t/18-bibtex-aliases.t +++ /dev/null @@ -1,45 +0,0 @@ -use strict; -use warnings; -use utf8; -no warnings 'utf8'; - -use Test::More tests => 7; - -use Biber; -use Biber::Output::BBL; -use Log::Log4perl qw(:easy); -Log::Log4perl->easy_init($ERROR); -chdir("t/tdata") ; - -# Set up Biber object -my $biber = Biber->new(noconf => 1); -$biber->parse_ctrlfile('bibtex-aliases.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('validate_structure', 1); - -# Now generate the information -$biber->prepare; - -my $section = $biber->sections->get_section(0); -my $bibentries = $section->bibentries; - -my $w1 = ["Field 'school' is aliased to field 'institution' but both are defined in entry with key 'alias2' - skipping field 'school'", - "Entry 'alias2' - invalid entry type 'thing' - defaulting to 'misc'", - "Entry 'alias2' - invalid field 'institution' for entrytype 'misc'" -]; - -is($bibentries->entry('alias1')->get_field('entrytype'), 'thesis', 'Alias - 1' ); -is($bibentries->entry('alias1')->get_field('type'), 'phdthesis', 'Alias - 2' ); -is_deeply($bibentries->entry('alias1')->get_field('location'), ['Ivory Towers'], 'Alias - 3' ); -is($bibentries->entry('alias1')->get_field('address'), undef, 'Alias - 4' ); -is($bibentries->entry('alias2')->get_field('entrytype'), 'misc', 'Alias - 5' ); -is_deeply($bibentries->entry('alias2')->get_field('warnings'), $w1, 'Alias - 6' ) ; -is($bibentries->entry('alias2')->get_field('school'), undef, 'Alias - 7' ); - -unlink <*.utf8>; |