/[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 52 by dpavlin, Fri Jul 7 22:33:06 2006 UTC revision 54 by dpavlin, Fri Jul 7 23:45:12 2006 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 112;  use Test::More tests => 124;
7  use File::Spec;  use File::Spec;
8    
9  BEGIN {  BEGIN {
# Line 18  BEGIN { Line 18  BEGIN {
18  }  }
19    
20    
21  my $debug = shift @ARGV;  my $debug = length( shift @ARGV );
22  my $isis;  my $isis;
23    
24  my $path_winisis = File::Spec->catfile('data', 'winisis', 'BIBL');  my $path_winisis = File::Spec->catfile('data', 'winisis', 'BIBL');
# Line 111  sub test_data { Line 111  sub test_data {
111                  my $rec;                  my $rec;
112                  ok($rec = $isis->fetch($mfn), "fetch $mfn");                  ok($rec = $isis->fetch($mfn), "fetch $mfn");
113    
114                    diag "<<<<< rec = ",Dumper( $rec ), "\n>>>>> data = ", Dumper( $data->[$mfn-1] ) if ($debug);
                 diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ) if ($debug);  
115    
116                  foreach my $f (keys %{$data->[$mfn-1]}) {                  foreach my $f (keys %{$data->[$mfn-1]}) {
117                          my $i = 0;                          my $i = 0;
# Line 123  sub test_data { Line 122  sub test_data {
122                                  $i++;                                  $i++;
123                          }                          }
124                  }                  }
125    
126                    cmp_ok($isis->mfn, '==', $mfn, 'mfn');
127    
128          }          }
129    
130          # test to_ascii          # test to_ascii
# Line 143  sub test_data { Line 145  sub test_data {
145  $isis = Biblio::Isis->new (  $isis = Biblio::Isis->new (
146          isisdb => $path_winisis,          isisdb => $path_winisis,
147          include_deleted => 1,          include_deleted => 1,
148          debug => $debug,          debug => $debug > 1 ? ($debug - 1) : 0,
149  );  );
150    
151  diag "new Biblio::Isis = ", Dumper($isis) if ($debug);  diag "new Biblio::Isis = ", Dumper($isis) if ($debug);
# Line 183  $isis = Biblio::Isis->new ( Line 185  $isis = Biblio::Isis->new (
185    
186  ok($isis->fetch(3), "deleted found");  ok($isis->fetch(3), "deleted found");
187  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
188    ok($isis->{record}, "record exists");
189    
190    diag "record = ",Dumper($isis->{record});
191    
192  $isis = Biblio::Isis->new (  $isis = Biblio::Isis->new (
193          isisdb => $path_winisis,          isisdb => $path_winisis,
# Line 191  $isis = Biblio::Isis->new ( Line 196  $isis = Biblio::Isis->new (
196    
197  ok(! $isis->fetch(3), "deleted not found");  ok(! $isis->fetch(3), "deleted not found");
198  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
199    ok(! $isis->{record}, 'no record');
200    
201    $isis->{record} = {
202            900 => [ '^a900a^b900b^c900c' ],
203            901 => [
204                    '^a901a-1^b901b-1^c901c-1',
205                    '^a901a-2^b901b-2',
206                    '^a901a-3',
207            ],
208            902 => [
209                    '^aa1^aa2^aa3^bb1^aa4^bb2^cc1^aa5',
210            ],
211    };
212    $isis->{current_mfn} = 42;
213    
214    diag "to_hash = ",Dumper( $isis->to_hash( $isis->mfn ) );
215    diag "to_ascii = \n", $isis->to_ascii( $isis->mfn );
Legend:
Removed from v.52  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26