diff options
Diffstat (limited to 'Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/03-parse_entry.t')
-rw-r--r-- | Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/03-parse_entry.t | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/03-parse_entry.t b/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/03-parse_entry.t new file mode 100644 index 00000000000..92597173a94 --- /dev/null +++ b/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/03-parse_entry.t @@ -0,0 +1,61 @@ +#!/usr/bin/perl -w + +use Test::More tests => 2; + +use IO::String; +use BibTeX::Parser; + +{ + my $string = q|@article{lin1973, + author = "Shen Lin and Brian W. Kernighan", + title = "An Effective Heuristic Algorithm for the Travelling-Salesman Problem", + journal = "Operations Research", + volume = 21, + year = 1973, + pages = "498--516" + }|; + my $fh = IO::String->new($string); + + my $parser = BibTeX::Parser->new( $fh ); + +#my @result = BibTeX::Parser->_parse($fh); + + my $entry = $parser->next; + + is_deeply($entry, {_type => 'ARTICLE', _key => 'lin1973', author => "Shen Lin and Brian W. Kernighan", + title => "An Effective Heuristic Algorithm for the Travelling-Salesman Problem", + journal => "Operations Research", + volume => 21, + year => 1973, + pages => "498--516", _parse_ok => 1, + _raw => $string}, "parse \@ARTICLE"); + +} +{ + my $string = q|@InProceedings{Herper:2001:MVS, + author = {Henry Herper}, + title = {{M}odellierung von {S}ystemen: ein + {A}pplikationsgebiet im {I}nformatikunterricht}, + booktitle = {Informatikunterricht und Medienbildung, INFOS 2001 + (9. Fachtagung Informatik und Schule, Paderborn + 17.-20- September 2001) -- Tagungsband}, + editor = {Reinhard Keil-Slavik and Johannes Magenheim}, + year = {2001}, +}|; + my $fh = IO::String->new($string); + + my $parser = BibTeX::Parser->new( $fh ); + + my $entry = $parser->next; + + is_deeply($entry, { + _type => 'INPROCEEDINGS', + _key => 'Herper:2001:MVS', + author => "Henry Herper", + title => "{M}odellierung von {S}ystemen: ein {A}pplikationsgebiet im {I}nformatikunterricht", + booktitle => "Informatikunterricht und Medienbildung, INFOS 2001 (9. Fachtagung Informatik und Schule, Paderborn 17.-20- September 2001) -- Tagungsband", + editor => "Reinhard Keil-Slavik and Johannes Magenheim", + year => 2001, + _parse_ok => 1, + _raw => $string}, "parse \@ARTICLE"); +} |