21 |
diag "abs_path: $abs_path"; |
diag "abs_path: $abs_path"; |
22 |
|
|
23 |
my $isis_file = "$abs_path../t/winisis/BIBL"; |
my $isis_file = "$abs_path../t/winisis/BIBL"; |
24 |
|
$isis_file = '/data/hidra/THS/THS'; |
25 |
|
|
26 |
diag "isis_file: $isis_file"; |
diag "isis_file: $isis_file"; |
27 |
|
|
31 |
|
|
32 |
ok(my $isis = new WebPAC::Input::ISIS( |
ok(my $isis = new WebPAC::Input::ISIS( |
33 |
code_page => 'ISO-8859-2', # application encoding |
code_page => 'ISO-8859-2', # application encoding |
34 |
|
limit_mfn => 10, |
35 |
), "new Input::ISIS"); |
), "new Input::ISIS"); |
36 |
|
|
37 |
ok(my $maxmfn = $isis->open( |
ok(my $maxmfn = $isis->open( |
49 |
# filter => { 'foo' => sub { shift } }, |
# filter => { 'foo' => sub { shift } }, |
50 |
db => $db, |
db => $db, |
51 |
lookup_regex => $lookup->regex, |
lookup_regex => $lookup->regex, |
52 |
debug => 1, |
lookup => $lookup, |
53 |
), "new Normalize::XML"); |
), "new Normalize::XML"); |
54 |
|
|
55 |
ok($n->open( |
ok($n->open( |