[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.2 and 1.5

version 1.2, 2007/02/22 04:57:37 version 1.5, 2007/08/10 05:13:31
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl -T
 # $RedRiver: keyring5-samples.t,v 1.1 2007/02/18 05:50:25 andrew Exp $  # $RedRiver: keyring5-samples.t,v 1.4 2007/02/27 17:08:05 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More tests => 30;  use Test::More tests => 30;
 use Data::Dumper;  
   
 BEGIN { use_ok( 'Palm::PDB' ); }  BEGIN { use_ok( 'Palm::PDB' ); }
 BEGIN { use_ok( 'Palm::Keyring' ); }  BEGIN { use_ok( 'Palm::Keyring' ); }
   
 my $password = 'abc';  my $password = 'abc';
 my $orig_recs = [  my $orig_recs = [
     [      {
         {          0 => {
               'label_id' => 0,
               'data' => '',
               'label' => 'name',
               'font' => 0,
           },
           2 => {
             'label_id' => 2,              'label_id' => 2,
             'data' => 'only password is set',              'data' => 'only password is set',
             'label' => 'password',              'label' => 'password',
             'font' => 0              'font' => 0
         },          },
         {          3 => {
             'label_id' => 3,              'label_id' => 3,
             'data' => {              'data' => {
                 'month' => 1,                  'month' => 1,
Line 28 
Line 33 
             'label' => 'lastchange',              'label' => 'lastchange',
             'font' => 0              'font' => 0
         }          }
     ],      },
     [      {
         {          0 => {
               'label_id' => 0,
               'data' => 'hoenicke',
               'label' => 'name',
               'font' => 0,
           },
           1 => {
             'label_id' => 1,              'label_id' => 1,
             'data' => 'test',              'data' => 'test',
             'label' => 'account',              'label' => 'account',
             'font' => 0              'font' => 0
         },          },
         {          2 => {
             'label_id' => 2,              'label_id' => 2,
             'data' => 'abcd1234',              'data' => 'abcd1234',
             'label' => 'password',              'label' => 'password',
             'font' => 0              'font' => 0
         },          },
         {          3 => {
             'label_id' => 3,              'label_id' => 3,
             'data' => {              'data' => {
                 'month' => 1,                  'month' => 1,
Line 52 
Line 63 
             'label' => 'lastchange',              'label' => 'lastchange',
             'font' => 0              'font' => 0
         },          },
         {          255 => {
             'label_id' => 255,              'label_id' => 255,
             'data' => 'This is a short note.',              'data' => 'This is a short note.',
             'label' => 'notes',              'label' => 'notes',
             'font' => 0              'font' => 0
         }          }
     ],      },
     [      {
         {          0 => {
               'label_id' => 0,
               'data' => 'name',
               'label' => 'name',
               'font' => 0,
           },
           2 => {
             'label_id' => 2,              'label_id' => 2,
             'data' => 'password (date is 2/2/07)',              'data' => 'password (date is 2/2/07)',
             'label' => 'password',              'label' => 'password',
             'font' => 0              'font' => 0
         },          },
         {          3 => {
             'label_id' => 3,              'label_id' => 3,
             'data' => {              'data' => {
                 'month' => 1,                  'month' => 1,
Line 76 
Line 93 
             'label' => 'lastchange',              'label' => 'lastchange',
             'font' => 0              'font' => 0
         }          }
     ]      }
 ];  ];
   
 foreach my $file ('Keys-None.pdb', 'Keys-3DES.pdb', 'Keys-AES.pdb', 'Keys-AES256.pdb') {  foreach my $file ('Keys-None.pdb', 'Keys-3DES.pdb', 'Keys-AES.pdb', 'Keys-AES256.pdb') {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>