[BACK]Return to keyring5-samples.t CVS log [TXT][DIR] Up to [local] / palm / Palm-Keyring / t

Diff for /palm/Palm-Keyring/t/keyring5-samples.t between version 1.1 and 1.2

version 1.1, 2007/02/18 05:50:25 version 1.2, 2007/02/22 04:57:37
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: keyring4.t,v 1.1 2007/02/17 23:36:07 andrew Exp $  # $RedRiver: keyring5-samples.t,v 1.1 2007/02/18 05:50:25 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
Line 83 
Line 83 
     my $pdb;      my $pdb;
     ok( $pdb = new Palm::PDB, 'new Palm::PDB' );      ok( $pdb = new Palm::PDB, 'new Palm::PDB' );
     ok( $pdb->Load('t/' . $file), "Loading '$file'" );      ok( $pdb->Load('t/' . $file), "Loading '$file'" );
     ok( $pdb->Password($password), 'Passing Password' );      SKIP: {
     my @recs = ();          skip 'Digest::HMAC_SHA1 not installed', 5 unless
     foreach my $rec (@{ $pdb->{records}}) {              eval " require Digest::HMAC_SHA1 ";
         my $acct;  
         ok( $acct = $pdb->Decrypt( $rec ), 'Decrypting record ' . scalar @recs );          if ($pdb->{appinfo}->{cipher} > 0) {
         push @recs, $acct;              my $crypt = Palm::Keyring::crypts($pdb->{appinfo}->{cipher});
               skip 'Crypt::CBC not installed', 5 unless
                   eval "require Crypt::CBC";
               skip 'Crypt::' . $crypt->{name} . ' not installed', 5 unless
                   eval "require Crypt::$crypt->{name}";
           }
   
           $password = 'abc';
           ok( $pdb->Password($password), 'Passing Password' );
           my @recs = ();
           foreach my $rec (@{ $pdb->{records}}) {
               my $acct;
               ok( $acct = $pdb->Decrypt( $rec ), 'Decrypting record ' . scalar @recs );
               push @recs, $acct;
           }
           is_deeply(\@recs, $orig_recs, "Matching records in '$file'" );
     }      }
     is_deeply( $orig_recs, \@recs, "Matching records in '$file'" );  
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>