From d88e15acfb7da8168cdcb24b271f2aba4dcee4fb Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 9 Oct 2013 05:26:27 +0000 Subject: [PATCH] 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 --- t/db_dependent/Record.t | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t index 2e0444911c..02bf8b1ada 100755 --- a/t/db_dependent/Record.t +++ b/t/db_dependent/Record.t @@ -84,15 +84,19 @@ my $test4xml=qq( 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} } ); -- 2.20.1