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");
|