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, |
43 |
), "Input::ISIS->open"); |
), "Input::ISIS->open"); |
44 |
|
|
45 |
ok(my $path = tempdir( CLEANUP => 1 ), "path"); |
ok(my $path = tempdir( CLEANUP => 1 ), "path"); |
58 |
|
|
59 |
ok($n->open( |
ok($n->open( |
60 |
tag => 'isis', |
tag => 'isis', |
61 |
xml_file => "$abs_path../conf/normalize/isis.xml", |
xml_file => "$abs_path/data/normalize.xml", |
62 |
), "Normalize::XML->open"); |
), "Normalize::XML->open"); |
63 |
|
|
64 |
ok(my $out = new WebPAC::Output::TT( |
ok(my $out = new WebPAC::Output::TT( |
79 |
|
|
80 |
$html =~ s#\s*[\n\r]+\s*##gs; |
$html =~ s#\s*[\n\r]+\s*##gs; |
81 |
|
|
82 |
diag $html; |
#diag $html; |
83 |
|
|
84 |
}; |
}; |