--- trunk/t/2-input.t 2007/10/29 23:20:13 908 +++ trunk/t/2-input.t 2007/10/30 01:46:41 909 @@ -107,13 +107,13 @@ test_start_limit($input, 3, $size, $size - 2); test_start_limit($input, 1, $size + 2, $size); -ok(my $s = $input->stats, 'stats'); +ok(my $s = $input->stats, "$module stats"); diag "stats:\n$s" if ($debug); $module = 'WebPAC::Input::MARC'; diag "testing with $module"; -ok($input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1 ), "new $module"); +ok($input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1, stats => 1 ), "new $module"); ok($input->open( path => "$abs_path/data/marc.iso" ), "open marc.iso"); @@ -121,6 +121,9 @@ test_fetch($input, $input->size); +ok(my $s = $input->stats, "$module stats"); + +diag "stats:\n$s" if ($debug); # test modify_record $module = 'WebPAC::Input::Test'; ok($input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1, debug => $debug ), "new $module");