From: Galen Charlton <gmc@esilibrary.com>
Date: Wed, 9 Oct 2013 05:26:27 +0000 (+0000)
Subject: bug 6201: (follow-up) update unit tests
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=d88e15acfb7da8168cdcb24b271f2aba4dcee4fb;p=koha.git

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>
---

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(<?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}
 }
 );