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

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

revision 25 by dpavlin, Fri Dec 31 05:43:20 2004 UTC revision 28 by dpavlin, Sat Jan 1 22:29:49 2005 UTC
# Line 5  use blib; Line 5  use blib;
5    
6  use Data::Dumper;  use Data::Dumper;
7    
8  use Test::More tests => 108;  use Test::More tests => 110;
9    
10  BEGIN { use_ok( 'IsisDB' ); }  BEGIN { use_ok( 'IsisDB' ); }
11    
# Line 24  sub test_data { Line 24  sub test_data {
24          SKIP: {          SKIP: {
25                  skip "no CNT file for this database", 5 unless $isis->{cnt_file};                  skip "no CNT file for this database", 5 unless $isis->{cnt_file};
26    
27                  $isis->read_cnt;                  ok(my $isis_cnt = $isis->read_cnt, "read_cnt");
28    
29                    cmp_ok(scalar keys %{$isis_cnt}, '==', 2, "returns 2 elements");
30    
31                  my $cnt = {                  my $cnt = {
32                          '1' => {                          '1' => {
# Line 53  sub test_data { Line 55  sub test_data {
55    
56                  foreach my $c (keys %{$cnt}) {                  foreach my $c (keys %{$cnt}) {
57                          foreach my $kn (keys %{$cnt->{$c}}) {                          foreach my $kn (keys %{$cnt->{$c}}) {
58                                  cmp_ok($isis->{cnt}->{$c}->{$kn}, '==', $cnt->{$c}->{$kn}, "cnt $c $kn same");                                  cmp_ok($isis_cnt->{$c}->{$kn}, '==', $cnt->{$c}->{$kn}, "cnt $c $kn same");
59                          }                          }
60                  }                  }
61          }          }

Legend:
Removed from v.25  
changed lines
  Added in v.28

  ViewVC Help
Powered by ViewVC 1.1.26