projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make cleanup of encodings, moving webpac closer to having
[webpac2]
/
t
/
6-unit.t
diff --git
a/t/6-unit.t
b/t/6-unit.t
index
ab27783
..
a9a6935
100755
(executable)
--- a/
t/6-unit.t
+++ b/
t/6-unit.t
@@
-39,14
+39,13
@@
my $lookup_file = "$abs_path../conf/lookup/isis.pm";
ok(my $isis = new WebPAC::Input(
module => 'WebPAC::Input::ISIS',
ok(my $isis = new WebPAC::Input(
module => 'WebPAC::Input::ISIS',
- code_page => 'ISO-8859-2', # application encoding
limit => 100,
no_progress_bar => 1,
), "new Input::ISIS");
ok(my $maxmfn = $isis->open(
path => $isis_file,
limit => 100,
no_progress_bar => 1,
), "new Input::ISIS");
ok(my $maxmfn = $isis->open(
path => $isis_file,
-
code_page => 'cp852',
# database encoding
+
input_encoding => 'cp852',
# database encoding
lookup_coderef => sub {
my $rec = shift || return;
ok($rec, 'lookup_coderef has rec');
lookup_coderef => sub {
my $rec = shift || return;
ok($rec, 'lookup_coderef has rec');