summaryrefslogtreecommitdiff
path: root/support/bibtexperllibs/BibTeX-Parser/t/bug67419.t
blob: 0f944f373a9828ea189152fd5433d9d6e1599cac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl -w

use Test::More;

use BibTeX::Parser;
use IO::File;

my $fh = new IO::File "t/bibs/braces.bib", "r" ;
my $parser = new BibTeX::Parser $fh;
while (my $entry=$parser->next) {
    is($entry->parse_ok,1);
    if ($entry->key eq 'scholkopf98kpca') {
	@authors=$entry->author;
	is(scalar @authors,3);
	is("$authors[0]", '{Sch\"olkopf}, Bernhard');
	is("$authors[1]", 'Smola, Alex');
	is("$authors[2]", 'Muller, K.R.');
    }
    if ($entry->key eq 'brownetal93') {
	@authors=$entry->author;
	is(scalar @authors,4);
	is("$authors[0]", 'Brown, Peter F.');
	is("$authors[1]", '{Della Pietra}, Stephen A.');
	is("$authors[2]", '{Della Pietra}, Vincent J.');
	is("$authors[3]", 'Mercer, Robert~L.');
    }
}

done_testing();