/[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 50 by dpavlin, Fri Jul 7 21:07:44 2006 UTC revision 51 by dpavlin, Fri Jul 7 22:29:49 2006 UTC
# Line 112  sub test_data { Line 112  sub test_data {
112                  ok($rec = $isis->fetch($mfn), "fetch $mfn");                  ok($rec = $isis->fetch($mfn), "fetch $mfn");
113    
114    
115                  diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] );                  diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ) if ($debug);
116    
117                  foreach my $f (keys %{$data->[$mfn-1]}) {                  foreach my $f (keys %{$data->[$mfn-1]}) {
118                          my $i = 0;                          my $i = 0;
# Line 146  $isis = Biblio::Isis->new ( Line 146  $isis = Biblio::Isis->new (
146          debug => $debug,          debug => $debug,
147  );  );
148    
149  diag "isis-new result: ", Dumper($isis);  diag "new Biblio::Isis = ", Dumper($isis) if ($debug);
150    
151  test_data(  test_data(
152          no_ident => 1,          no_ident => 1,

Legend:
Removed from v.50  
changed lines
  Added in v.51

  ViewVC Help
Powered by ViewVC 1.1.26