/[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 761 by dpavlin, Wed Oct 25 17:10:08 2006 UTC revision 771 by dpavlin, Fri Nov 3 20:40:33 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 89;  use Test::More tests => 104;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 77  sub test_fetch($$) { Line 77  sub test_fetch($$) {
77                  ok(my $rec = $input->fetch, "fetch $mfn");                  ok(my $rec = $input->fetch, "fetch $mfn");
78                  cmp_ok($input->pos, '==', $mfn, "pos $mfn");                  cmp_ok($input->pos, '==', $mfn, "pos $mfn");
79                  push @db, $rec;                  push @db, $rec;
80                    ok(my $dump = $input->dump, "dump $mfn");
81                    diag $dump if ($debug);
82          }          }
83    
84          return @db;          return @db;
Legend:
Removed from v.761  
changed lines
  Added in v.771
  ViewVC Help
Powered by ViewVC 1.1.26