--- trunk/t/2-input-isi.t 2007/10/10 19:01:57 899 +++ trunk/t/2-input-isi.t 2007/11/01 00:16:48 949 @@ -1,30 +1,22 @@ #!/usr/bin/perl -w -use Test::More tests => 9; -use Test::Exception; -use Cwd qw/abs_path/; -use blib; use strict; +use blib; -use Data::Dump qw/dump/; - -my $debug = 1; +use Test::More tests => 9; BEGIN { +use_ok( 'WebPAC::Test' ); use_ok( 'WebPAC::Input' ); } -ok(my $abs_path = abs_path($0), "abs_path"); -$abs_path =~ s#/[^/]*$#/#; - my $module = 'WebPAC::Input::ISI'; diag "testing with $module"; ok(my $input = new WebPAC::Input( module => $module, - no_log => 0, no_progress_bar => 1, - debug => $debug, + %LOG ), "new"); ok(my $db = $input->open( @@ -42,6 +34,6 @@ cmp_ok($input->pos, '==', $mfn, "pos $mfn"); - diag "rec: ", dump($rec), "\n"; + diag "rec: ", dump($rec), "\n" if $debug; }