18 |
diag "testing with $module"; |
diag "testing with $module"; |
19 |
|
|
20 |
throws_ok { my $input = new WebPAC::Input( ) } qr/module/, "need module"; |
throws_ok { my $input = new WebPAC::Input( ) } qr/module/, "need module"; |
21 |
ok(my $input = new WebPAC::Input( module => $module, no_log => 0 ), "new"); |
ok(my $input = new WebPAC::Input( module => $module, no_log => 0, no_progress_bar => 1 ), "new"); |
22 |
ok(my $input_lm = new WebPAC::Input( module => $module, low_mem => 1, no_log => 1 ), "new $module"); |
ok(my $input_lm = new WebPAC::Input( module => $module, low_mem => 1, no_log => 1, no_progress_bar => 1 ), "new $module"); |
23 |
|
|
24 |
throws_ok { $input->open( ) } qr/path/, "need path"; |
throws_ok { $input->open( ) } qr/path/, "need path"; |
25 |
|
|
76 |
$module = 'WebPAC::Input::MARC'; |
$module = 'WebPAC::Input::MARC'; |
77 |
diag "testing with $module"; |
diag "testing with $module"; |
78 |
|
|
79 |
ok($input = new WebPAC::Input( module => $module, low_mem => 1, no_log => 1 ), "new $module"); |
ok($input = new WebPAC::Input( module => $module, low_mem => 1, no_log => 1, no_progress_bar => 1 ), "new $module"); |
80 |
|
|
81 |
ok($input->open( path => "$abs_path/data/marc.iso" ), "open"); |
ok($input->open( path => "$abs_path/data/marc.iso" ), "open"); |
82 |
|
|