/[webpac2]/trunk/t/2-input.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/2-input.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 290 by dpavlin, Sun Dec 18 23:10:02 2005 UTC revision 483 by dpavlin, Sun May 14 09:34:05 2006 UTC
# Line 18  my $module = 'WebPAC::Input::ISIS'; Line 18  my $module = 'WebPAC::Input::ISIS';
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    
# Line 76  test_start_limit($input, 1, $size + 2, $ Line 76  test_start_limit($input, 1, $size + 2, $
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    
Legend:
Removed from v.290  
changed lines
  Added in v.483
  ViewVC Help
Powered by ViewVC 1.1.26