summaryrefslogtreecommitdiff
path: root/support/bibtexperllibs/BibTeX-Parser/t/08-parse_large.t
blob: 5375d9a06209c17b1239512ba835367a86e20aa2 (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
#!/usr/bin/perl -w

use Test::More skip_all => "Performance test", tests => 1;

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

my $starttime = time;

my $fh = IO::File->new('t/bibs/java.bib'); #cl-nlp8x.bib');

my $parser = new BibTeX::Parser $fh;
my $entries = 0;

#my @result = BibTeX::Parser->_parse($fh);

while(my $entry = $parser->next) {
	$entries++;
}

my $parsetime = time - $starttime;

warn "Parsed $entries entries in $parsetime seconds";
ok(1, "Parsed $entries entries in $parsetime seconds");