Bug 5327 1 more test added.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

diff --git a/t/Record.t b/t/Record.t
index 7d71843..a0f210e 100755 (executable)
--- a/t/Record.t
+++ b/t/Record.t
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 10;
 use MARC::Record;
 
 BEGIN {
@@ -98,6 +98,9 @@ my $test5xml=qq(\@book{,
 
 is ($bibtex, $test5xml, "testing bibtex");
 
+my @entity=C4::Record::_entity_encode("BJ??RN");
+is ($entity[0], "BJÖRN", "Html umluts");
+