/[Biblio-Isis]/trunk/t/002_isis.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/002_isis.t

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

revision 31 by dpavlin, Sat Jan 1 22:29:49 2005 UTC revision 32 by dpavlin, Wed Jan 5 15:46:26 2005 UTC
# Line 17  sub test_data { Line 17  sub test_data {
17    
18          isa_ok ($isis, 'IsisDB');          isa_ok ($isis, 'IsisDB');
19    
20          cmp_ok($isis->{maxmfn}, '==', 5, "maxmfn set to 5");          cmp_ok($isis->count, '==', 5, "count is 5");
21    
22          # test .CNT data          # test .CNT data
23    
# Line 92  sub test_data { Line 92  sub test_data {
92                  '200' => [ '1#^aPsychology^fCamille B. Wortman, Elizabeth F. Loftus, Mary E. Marshal' ],                  '200' => [ '1#^aPsychology^fCamille B. Wortman, Elizabeth F. Loftus, Mary E. Marshal' ],
93          } ];          } ];
94                                    
95          foreach my $mfn (1 .. $isis->{'maxmfn'}) {          foreach my $mfn (1 .. $isis->count) {
96                  my $rec;                  my $rec;
97                  ok($rec = $isis->fetch($mfn), "fetch $mfn");                  ok($rec = $isis->fetch($mfn), "fetch $mfn");
98    
# Line 113  sub test_data { Line 113  sub test_data {
113    
114                  skip "no Digest::MD5 module", 5 if ($@);                  skip "no Digest::MD5 module", 5 if ($@);
115    
116                  foreach my $mfn (1 .. $isis->{'maxmfn'}) {                  foreach my $mfn (1 .. $isis->count) {
117                          my $md5 = md5_hex($isis->to_ascii($mfn));                          my $md5 = md5_hex($isis->to_ascii($mfn));
118                          cmp_ok($md5, 'eq', $args->{md5_ascii}[$mfn - 1], "md5 $mfn");                          cmp_ok($md5, 'eq', $args->{md5_ascii}[$mfn - 1], "md5 $mfn");
119                  }                  }

Legend:
Removed from v.31  
changed lines
  Added in v.32

  ViewVC Help
Powered by ViewVC 1.1.26