39 |
|
|
40 |
ok(my $isis = new WebPAC::Input( |
ok(my $isis = new WebPAC::Input( |
41 |
module => 'WebPAC::Input::ISIS', |
module => 'WebPAC::Input::ISIS', |
|
code_page => 'ISO-8859-2', # application encoding |
|
42 |
limit => 100, |
limit => 100, |
43 |
no_progress_bar => 1, |
no_progress_bar => 1, |
44 |
), "new Input::ISIS"); |
), "new Input::ISIS"); |
45 |
|
|
46 |
ok(my $maxmfn = $isis->open( |
ok(my $maxmfn = $isis->open( |
47 |
path => $isis_file, |
path => $isis_file, |
48 |
code_page => 'cp852', # database encoding |
input_encoding => 'cp852', # database encoding |
49 |
lookup_coderef => sub { |
lookup_coderef => sub { |
50 |
my $rec = shift || return; |
my $rec = shift || return; |
51 |
ok($rec, 'lookup_coderef has rec'); |
ok($rec, 'lookup_coderef has rec'); |