/[webpac2]/trunk/t/2-input-isi.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-isi.t

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

revision 903 by dpavlin, Wed Oct 10 19:01:57 2007 UTC revision 904 by dpavlin, Fri Oct 12 12:07:35 2007 UTC
# Line 8  use strict; Line 8  use strict;
8    
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    
11  my $debug = 1;  my $debug = @ARGV ? 1 : 0;
12    
13  BEGIN {  BEGIN {
14  use_ok( 'WebPAC::Input' );  use_ok( 'WebPAC::Input' );
15  }  }
16    
17  ok(my $abs_path = abs_path($0), "abs_path");  ok(my $abs_path = abs_path($0), "abs_path");
18  $abs_path =~ s#/[^/]*$#/#;  $abs_path =~ s#/[^/]*$#/#;      #
19    
20  my $module = 'WebPAC::Input::ISI';  my $module = 'WebPAC::Input::ISI';
21  diag "testing with $module";  diag "testing with $module";
# Line 42  foreach my $mfn ( 1 ... $size ) { Line 42  foreach my $mfn ( 1 ... $size ) {
42    
43          cmp_ok($input->pos, '==', $mfn, "pos $mfn");          cmp_ok($input->pos, '==', $mfn, "pos $mfn");
44    
45          diag "rec: ", dump($rec), "\n";          diag "rec: ", dump($rec), "\n" if $debug;
46  }  }
47    
Legend:
Removed from v.903  
changed lines
  Added in v.904
  ViewVC Help
Powered by ViewVC 1.1.26