diff options
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/t/10-configfile.t')
| -rwxr-xr-x | Master/texmf-dist/source/bibtex/biber/t/10-configfile.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/bibtex/biber/t/10-configfile.t b/Master/texmf-dist/source/bibtex/biber/t/10-configfile.t new file mode 100755 index 00000000000..039cfbadd8d --- /dev/null +++ b/Master/texmf-dist/source/bibtex/biber/t/10-configfile.t @@ -0,0 +1,26 @@ +use strict; +use warnings; + +use Test::More tests => 6; +use Biber; +use Cwd qw(getcwd); +use File::Spec; +use Log::Log4perl qw(:easy); +Log::Log4perl->easy_init($ERROR); + +my $biberA = Biber->new( configfile => "t/tdata/biber2.conf" ); +is(Biber::Config->getoption('mincrossrefs'), 5); +my %colloptsA = ( level => 3, table => "/home/user/data/otherkeys.txt" ); +my %nosort = (author => [ q/\A\p{L}{2}\p{Pd}/, q/[\x{2bf}\x{2018}]/ ], + translator => q/[\x{2bf}\x{2018}]/ ); +is_deeply(Biber::Config->getoption('collate_options'), \%colloptsA); +is_deeply(Biber::Config->getoption('nosort'), \%nosort); + +chdir("t/tdata"); +my $cwdB = getcwd(); +my $biberB = Biber->new(configfile => "biber3.conf"); +is(Biber::Config->getcmdlineoption('configfile'), File::Spec->catfile("biber3.conf")); +is(Biber::Config->getoption('mincrossrefs'), 3); +my %colloptsB = ( level => 1, table => "/home/user/data/mykeys.txt" ); +is_deeply(Biber::Config->getoption('collate_options'), \%colloptsB); + |