diff options
Diffstat (limited to 'support/bibtexperllibs/BibTeX-Parser/t/01-parse.t')
-rw-r--r-- | support/bibtexperllibs/BibTeX-Parser/t/01-parse.t | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/support/bibtexperllibs/BibTeX-Parser/t/01-parse.t b/support/bibtexperllibs/BibTeX-Parser/t/01-parse.t deleted file mode 100644 index 70e298d4be..0000000000 --- a/support/bibtexperllibs/BibTeX-Parser/t/01-parse.t +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/perl -w - -use Test::More tests => 11; - -use BibTeX::Parser; -use IO::File; - -use constant ENTRIES => 1; - -my $fh = new IO::File "t/bibs/01.bib", "r" ; - -if (defined $fh) { - my $parser = new BibTeX::Parser $fh; - - isa_ok($parser, "BibTeX::Parser"); - - my $count = 0; - - while (my $entry = $parser->next) { - $count++; - isa_ok($entry, "BibTeX::Parser::Entry"); - is($entry->key, "key01", "key"); - is($entry->type, "ARTICLE", "type"); - ok($entry->parse_ok, "parse_ok"); - is($entry->field("year"), 1950, "field"); - is($entry->field("month"), "January~1", "field"); - - my @authors = $entry->author; - is(scalar @authors, 2, "#authors"); - isa_ok($authors[0], "BibTeX::Parser::Author"); - is("$authors[0]", "Duck, Donald", "correct author"); - } - - is($count, ENTRIES, "number of entries"); -} - |