/[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 907 by dpavlin, Wed Apr 11 12:22:37 2007 UTC revision 908 by dpavlin, Mon Oct 29 23:20:13 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 118;  use Test::More tests => 123;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 18  my $debug = shift @ARGV; Line 18  my $debug = shift @ARGV;
18  my $no_log = $debug ? 0 : 1;  my $no_log = $debug ? 0 : 1;
19    
20  ok(my $abs_path = abs_path($0), "abs_path");  ok(my $abs_path = abs_path($0), "abs_path");
21  $abs_path =~ s#/[^/]*$#/#;  $abs_path =~ s#/[^/]*$#/#;      #vim
22    
23  my $module = 'WebPAC::Input::ISIS';  my $module = 'WebPAC::Input::ISIS';
24  diag "testing with $module";  diag "testing with $module";
25    
26  throws_ok { my $input = new WebPAC::Input( ) } qr/module/, "need module";  throws_ok { my $input = new WebPAC::Input( no_log => $no_log ) } qr/module/, "need module";
27  ok(my $input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1, stats => 1 ), "new $module");  ok(my $input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1, stats => 1 ), "new $module");
28  ok(my $input_lm = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1 ), "new $module");  ok(my $input_lm = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1 ), "new $module");
29    
# Line 79  sub test_fetch($$) { Line 79  sub test_fetch($$) {
79                  cmp_ok($input->pos, '==', $mfn, "pos $mfn");                  cmp_ok($input->pos, '==', $mfn, "pos $mfn");
80                  push @db, $rec;                  push @db, $rec;
81                  ok(my $dump = $input->dump_ascii, "dump_ascii $mfn");                  ok(my $dump = $input->dump_ascii, "dump_ascii $mfn");
82                    # XXX test count will help us keep this test in-line :-)
83                    ok($rec->{leader}, "leader $mfn") if $rec->{leader};
84                  diag $dump if ($debug);                  diag $dump if ($debug);
85          }          }
86    
Legend:
Removed from v.907  
changed lines
  Added in v.908
  ViewVC Help
Powered by ViewVC 1.1.26