bug 6201: (follow-up) update unit tests

This patch updates the unit tests for the BibTeX export
to add a regression test for supplying the author for
non-UNIMARC records.  It also adjusts the test to reflect
the change in quote character from "" to {}.

To test:

[1] Verify that prove -v t/db_dependent/Record.t passes

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Galen Charlton 2013-10-09 05:26:27 +00:00
parent 41ae12b561
commit d88e15acfb
1 changed files with 7 additions and 3 deletions

View File

@ -84,15 +84,19 @@ my $test4xml=qq(<?xml version="1.0" encoding="UTF-8"?>
is ($mods, $test4xml, "testing marc2mosxml");
$marc->append_fields(MARC::Field->new(
'100', ' ', ' ', a => 'Rowling, J.K.'
));
my $field = MARC::Field->new('245','','','a' => "Harry potter");
$marc->append_fields($field);
#my $endnote=marc2endnote($marc->as_usmarc);
#print $endnote;
my $bibtex=marc2bibtex($marc);
my $test5xml=qq(\@book{,
title = "Harry potter"
my $bibtex=marc2bibtex($marc, 'testID');
my $test5xml=qq(\@book{testID,
author = {Rowling, J.K.},
title = {Harry potter}
}
);