added test and data for utf-8 encoding example

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@32 49f9634a-d7ec-0310-8e6b-ec35c6cc8804

diff --git a/t/002_marc-utf8.t b/t/002_marc-utf8.t
new file mode 100755 (executable)
index 0000000..fd50291
--- /dev/null
+++ b/t/002_marc-utf8.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+
+use strict;
+use blib;
+
+use Test::More tests => 7;
+use Data::Dump qw/dump/;
+
+BEGIN {
+       use_ok( 'MARC::Fast' );
+       use_ok( 'Encode' );
+}
+
+my $debug = shift @ARGV;
+
+my $marc_file = 't/utf8.marc';
+
+ok(my $marc = MARC::Fast->new(
+       marcdb => 't/utf8.marc',
+       hash_filter => sub {
+               Encode::decode( 'utf-8', $_[0] );
+       },
+), "new");
+
+cmp_ok($marc->count, '==', 1, 'count' );
+
+ok(my $rec = $marc->fetch(1), "fetch 1");
+diag dump $rec if $debug;
+
+ok(my $hash = $marc->to_hash(1), "to_hash 1");
+diag dump $hash if $debug;
+
+ok( $hash->{260}->[0]->{'b'} eq "\x{160}kolska knjiga,", 'utf-8 flag' );
+

diff --git a/t/utf8.marc b/t/utf8.marc
new file mode 100644 (file)
index 0000000..70873c3
--- /dev/null
+++ b/t/utf8.marc
@@ -0,0 +1 @@
+01545nam a2200361ui 4500008004100000035001900041040003300060080001500093080000800108100002000116245010300136250002500239260003800264300004600302504003200348504001100380653001700391653001600408653002500424942007800449952012500527952012500652952010600777952010500883952010600988991001401094991001301108991001401121991001301135991001301148992001101161999001101172\1e020118s1988    |||    |||||||||| ||hrv|d\1e  \1faHR-ZaFF iznL41\1e  \1faHR-ZaFF\1fbhrv\1fcHR-ZaFF\1feppiak\1e  \1fa519.21:007\1e  \1fa007\1e1 \1faPauše, Željko\1e10\1faVjerojatnost :\1fbinformacija, stohastički procesi : pojmovi - metode - primjene /\1fcŽeljko Pauše.\1e  \1fa4. promijenjeno izd.\1e  \1faZagreb :\1fbŠkolska knjiga,\1fc1988.\1e  \1faXVI, 263 str. : \1fbgraf. prikazi ; \1fc24 cm\1e  \1faStr. 259-250: Bibliografija\1e  \1faKazalo\1e  \1favjerojatnost\1e  \1fainformacija\1e  \1fastohastički procesi\1e  \1fbLIB\1fcKNJ\1fdIZN | 519.21 | PAU | v | 519.21D | PAU | v\1fhBB\1fiPAU v\1f6BB_PAU_V\1e  \1fw2008-10-15\1fp1301000051\1fr2008-10-15\1f40\1f00\1f6BB_PAU_V\1f951\1fbFFZG\1f10\1foBB PAU v\1fd2008-10-15\1fiizn91/78\1f8IZN\1f70\1fcOPBB\1fyKNJ\1faFFZG\1e  \1fw2008-10-15\1fp1301000050\1fr2008-10-15\1f40\1f00\1f6BB_PAU_V\1f950\1fbFFZG\1f10\1foBB PAU v\1fd2008-10-15\1fiizn91/77\1f8IZN\1f70\1fcOPBB\1fyKNJ\1faFFZG\1e  \1fw2008-10-15\1fp1301000049\1fr2008-10-15\1f40\1f00\1f949\1fbFFZG\1f10\1fd2008-10-15\1fiizn90/36D\1f8IZN\1f70\1fcZSPO\1fyKNJ\1faFFZG\1e  \1fw2008-10-15\1fp1301000048\1fr2008-10-15\1f40\1f00\1f948\1fbFFZG\1f10\1fd2008-10-15\1fiizn90/35\1f8IZN\1f70\1fcZSPO\1fyKNJ\1faFFZG\1e  \1fw2008-10-15\1fp1301000047\1fr2008-10-15\1f40\1f00\1f947\1fbFFZG\1f10\1fd2008-10-15\1fiizn90/34D\1f8IZN\1f70\1fcZSPO\1fyKNJ\1faFFZG\1e  \1faizn90/34D\1e  \1faizn90/35\1e  \1faizn90/36D\1e  \1faizn91/77\1e  \1faizn91/78\1e  \1faIZ\1fbAP\1e  \1fc45\1fd45\1e\1d