summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t')
-rw-r--r--Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t b/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t
index 2d2e1ebfd36..e298aa5a59e 100644
--- a/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t
+++ b/Master/texmf-dist/source/support/bibtexperllibs/BibTeX-Parser/t/13_output.t
@@ -11,13 +11,15 @@ my $fh = new IO::File "t/bibs/01.bib", "r" ;
my $parser = new BibTeX::Parser $fh;
+
+
while (my $entry = $parser->next) {
if($entry->key eq 'key01') {
my $result='@ARTICLE{key01,
- month = {January~1},
- title = {Title text},
- author = {Duck, Donald and Else, Someone},
year = {1950},
+ author = {Duck, Donald and Else, Someone},
+ title = {Title text},
+ month = {January~1},
}';
is($entry->to_string,$result);
}
@@ -25,3 +27,4 @@ while (my $entry = $parser->next) {
}
done_testing();
+