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

version 1.1, 2007/02/18 05:50:25 version 1.6, 2007/09/13 16:44:39
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl -T
 # $RedRiver: keyring4.t,v 1.1 2007/02/17 23:36:07 andrew Exp $  # $RedRiver: keyring5-samples.t,v 1.5 2007/08/10 04:13:31 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') {
     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' );      my $Num_Tests_Left = 5;
     my @recs = ();      SKIP: {
     foreach my $rec (@{ $pdb->{records}}) {          skip 'Digest::HMAC_SHA1 not installed', $Num_Tests_Left
         my $acct;              unless eval "require Digest::HMAC_SHA1";
         ok( $acct = $pdb->Decrypt( $rec ), 'Decrypting record ' . scalar @recs );  
         push @recs, $acct;          if ($pdb->{appinfo}->{cipher} > 0) {
               my $crypt = Palm::Keyring::crypts($pdb->{appinfo}->{cipher});
               skip 'Crypt::CBC not installed', $Num_Tests_Left
                   unless eval "require Crypt::CBC";
               skip 'Crypt::' . $crypt->{name} . ' not installed', $Num_Tests_Left
                   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.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>