11 |
|
|
12 |
BEGIN { |
BEGIN { |
13 |
use_ok( 'WebPAC::Lookup' ); |
use_ok( 'WebPAC::Lookup' ); |
14 |
use_ok( 'WebPAC::Input::ISIS' ); |
use_ok( 'WebPAC::Input' ); |
15 |
use_ok( 'WebPAC::Store' ); |
use_ok( 'WebPAC::Store' ); |
16 |
use_ok( 'WebPAC::Normalize::XML' ); |
use_ok( 'WebPAC::Normalize::XML' ); |
17 |
use_ok( 'WebPAC::Output::TT' ); |
use_ok( 'WebPAC::Output::TT' ); |
30 |
lookup_file => "$abs_path../conf/lookup/isis.pm", |
lookup_file => "$abs_path../conf/lookup/isis.pm", |
31 |
), "new Lookup"); |
), "new Lookup"); |
32 |
|
|
33 |
ok(my $isis = new WebPAC::Input::ISIS( |
ok(my $isis = new WebPAC::Input( |
34 |
|
module => 'WebPAC::Input::ISIS', |
35 |
code_page => 'ISO-8859-2', # application encoding |
code_page => 'ISO-8859-2', # application encoding |
36 |
limit_mfn => 10, |
limit => 10, |
37 |
), "new Input::ISIS"); |
), "new Input::ISIS"); |
38 |
|
|
39 |
ok(my $maxmfn = $isis->open( |
ok(my $maxmfn = $isis->open( |
40 |
filename => $isis_file, |
path => $isis_file, |
41 |
code_page => '852', # database encoding |
code_page => '852', # database encoding |
42 |
lookup => $lookup, |
lookup => $lookup, |
43 |
), "Input::ISIS->open"); |
), "Input::ISIS->open"); |