[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.12

version 1.10, 2008/09/18 02:47:37 version 1.12, 2008/09/18 02:51:09
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.11 2008/09/18 01:50:25 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';
   
   my $original_accts = [
       {   0 => {
               'label_id' => 0,
               'data'     => '',
               'label'    => 'name',
               'font'     => 0,
           },
           2 => {
               'label_id' => 2,
               'data'     => 'only password is set',
               'label'    => 'password',
               'font'     => 0,
           },
           3 => {
               'label_id' => 3,
               'data'     => {
                   'month' => 1,
                   'day'   => 1,
                   'year'  => 107
               },
               'label' => 'lastchange',
               'font'  => 0,
           }
       },
       {   0 => {
               'label_id' => 0,
               'data'     => 'test',
               'label'    => 'name',
               'font'     => 0,
           },
           2 => {
               'label_id' => 2,
               'data'     => 'abcd1234',
               'label'    => 'password',
               'font'     => 0,
           },
           3 => {
               'label_id' => 3,
               'data'     => {
                   'month' => 1,
                   'day'   => 11,
                   'year'  => 107
               },
               'label' => 'lastchange',
               'font'  => 0,
           },
           255 => {
               'label_id' => 255,
               'data'     => 'This is a short note.',
               'label'    => 'notes',
               'font'     => 0,
           }
       },
       {   0 => {
               'label_id' => 0,
               'data'     => '',
               'label'    => 'name',
               'font'     => 0,
           },
           2 => {
               'label_id' => 2,
               'data'     => 'password (date is 2/2/07)',
               'label'    => 'password',
               'font'     => 0,
           },
           3 => {
               'label_id' => 3,
               'data'     => {
                   'month' => 1,
                   'day'   => 2,
                   'year'  => 107
               },
               'label' => 'lastchange',
               'font'  => 0,
           }
       }
   ];
   
 foreach my $cipher ( 0 .. 3 ) {  foreach my $cipher ( 0 .. 3 ) {
   
     #next unless $cipher == 0;      #next unless $cipher == 0;
Line 29 
Line 107 
         password => $password,          password => $password,
         cipher   => $cipher,          cipher   => $cipher,
     };      };
   
     my $original_accts = [  
         {   0 => {  
                 'label_id' => 0,  
                 'data'     => '',  
                 'label'    => 'name',  
                 'font'     => 0,  
             },  
             2 => {  
                 'label_id' => 2,  
                 'data'     => 'only password is set',  
                 'label'    => 'password',  
                 'font'     => 0,  
             },  
             3 => {  
                 'label_id' => 3,  
                 'data'     => {  
                     'month' => 1,  
                     'day'   => 1,  
                     'year'  => 107  
                 },  
                 'label' => 'lastchange',  
                 'font'  => 0,  
             }  
         },  
         {   0 => {  
                 'label_id' => 0,  
                 'data'     => 'test',  
                 'label'    => 'name',  
                 'font'     => 0,  
             },  
             2 => {  
                 'label_id' => 2,  
                 'data'     => 'abcd1234',  
                 'label'    => 'password',  
                 'font'     => 0,  
             },  
             3 => {  
                 'label_id' => 3,  
                 'data'     => {  
                     'month' => 1,  
                     'day'   => 11,  
                     'year'  => 107  
                 },  
                 'label' => 'lastchange',  
                 'font'  => 0,  
             },  
             255 => {  
                 'label_id' => 255,  
                 'data'     => 'This is a short note.',  
                 'label'    => 'notes',  
                 'font'     => 0,  
             }  
         },  
         {   0 => {  
                 'label_id' => 0,  
                 'data'     => '',  
                 'label'    => 'name',  
                 'font'     => 0,  
             },  
             2 => {  
                 'label_id' => 2,  
                 'data'     => 'password (date is 2/2/07)',  
                 'label'    => 'password',  
                 'font'     => 0,  
             },  
             3 => {  
                 'label_id' => 3,  
                 'data'     => {  
                     'month' => 1,  
                     'day'   => 2,  
                     'year'  => 107  
                 },  
                 'label' => 'lastchange',  
                 'font'  => 0,  
             }  
         }  
     ];  
   
     my $Num_Tests_Left = 34;      my $Num_Tests_Left = 34;
 SKIP: {  SKIP: {
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>