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

Diff for /palm/Palm-Keyring/t/keyring5.t between version 1.10 and 1.11

version 1.10, 2008/09/18 02:47:37 version 1.11, 2008/09/18 02:50:25
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 # $RedRiver: keyring5.t,v 1.9 2007/09/13 15:44:39 andrew Exp $  # $RedRiver: keyring5.t,v 1.10 2008/09/18 01:47:37 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
Line 14 
Line 14 
 my $password     = '12345';  my $password     = '12345';
 my $new_password = '54321';  my $new_password = '54321';
   
 foreach my $cipher ( 0 .. 3 ) {  
   
     #next unless $cipher == 0;  
     my $pdb;  
     my @recs;  
     my $record;  
     my $decrypted;  
   
     my $crypt = Palm::Keyring::crypts($cipher);  
   
     my $options = {  
         version  => 5,  
         password => $password,  
         cipher   => $cipher,  
     };  
   
     my $original_accts = [      my $original_accts = [
         {   0 => {          {   0 => {
                 'label_id' => 0,                  'label_id' => 0,
Line 107 
Line 91 
             }              }
         }          }
     ];      ];
   
   foreach my $cipher ( 0 .. 3 ) {
   
       #next unless $cipher == 0;
       my $pdb;
       my @recs;
       my $record;
       my $decrypted;
   
       my $crypt = Palm::Keyring::crypts($cipher);
   
       my $options = {
           version  => 5,
           password => $password,
           cipher   => $cipher,
       };
   
     my $Num_Tests_Left = 34;      my $Num_Tests_Left = 34;
 SKIP: {  SKIP: {
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>