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

Diff for /palm/Palm-Keyring/t/keyring.t between version 1.26 and 1.27

version 1.26, 2011/09/18 00:45:33 version 1.27, 2011/09/19 04:05:11
Line 3 
Line 3 
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More tests => 321;  use Test::More tests => 333;
 use Data::Dumper;  use Data::Dumper;
   
 BEGIN {  BEGIN {
Line 190 
Line 190 
         $new_password ) };          $new_password ) };
 like(  like(
     $@,      $@,
     qr/^Invalid \s Password/xms,      qr/^Incorrect \s Password/xms,
     'Couldn\'t load Palm::Keyring file with no data and wrong password'      'Couldn\'t load Palm::Keyring file with no data and wrong password'
 );  );
   
Line 206 
Line 206 
 $acct->{254} = {  $acct->{254} = {
         label    => 'misc',          label    => 'misc',
         label_id => 254,          label_id => 254,
         data     => 'This doesn\'t even really exist',          data     => 'This doesn\'t even really existx',
         font     => 0,          font     => 0,
 };  };
 ok( $pdb->Encrypt( $record, $password, $acct ),  ok( $pdb->Encrypt( $record, $password, $acct ),
Line 234 
Line 234 
 eval{ $pdb->Decrypt( $record ) };  eval{ $pdb->Decrypt( $record ) };
 like(  like(
     $@,      $@,
     qr/^Unsupported \s Crypt \s Testing \s in \s decrypt/xms,      qr/^Unsupported \s Crypt \s Testing/xms,
     'Couldn\'t Decrypt with unsupported Crypt'      'Couldn\'t Decrypt with unsupported Crypt'
 );  );
   
Line 242 
Line 242 
 eval{ $pdb->Encrypt( $record ) };  eval{ $pdb->Encrypt( $record ) };
 like(  like(
     $@,      $@,
     qr/^Unsupported \s Crypt \s Testing \s in \s encrypt/xms,      qr/^Unsupported \s Crypt \s Testing/xms,
     'Couldn\'t Encrypt with unsupported Crypt'      'Couldn\'t Encrypt with unsupported Crypt'
 );  );
 $record->{encrypted} = $encrypted;  $record->{encrypted} = $encrypted;
Line 251 
Line 251 
 eval{ $pdb->Decrypt( $record ) };  eval{ $pdb->Decrypt( $record ) };
 like(  like(
     $@,      $@,
     qr/^Unknown \s cipher \s $bad_cipher \s in \s decrypt/xms,      qr/^Unknown \s cipher \s $bad_cipher/xms,
     'Couldn\'t Decrypt with unsupported cipher'      'Couldn\'t Decrypt with unsupported cipher'
 );  );
   
Line 259 
Line 259 
 eval{ $pdb->Encrypt( $record ) };  eval{ $pdb->Encrypt( $record ) };
 like(  like(
     $@,      $@,
     qr/^Unknown \s cipher \s $bad_cipher \s in \s encrypt/xms,      qr/^Unknown \s cipher \s $bad_cipher/xms,
     'Couldn\'t Encrypt with unsupported cipher'      'Couldn\'t Encrypt with unsupported cipher'
 );  );
 $record->{encrypted} = $encrypted;  $record->{encrypted} = $encrypted;
Line 282 
Line 282 
 eval{ $pdb->PackRecord($record2) };  eval{ $pdb->PackRecord($record2) };
 like(  like(
     $@,      $@,
     qr/^No \s data \s to \s PackRecord/xms,      qr/^No \s data \s in \s record \s to \s pack/xms,
     'Pack Empty Record with no data'      'Pack Empty Record with no data'
 );  );
   
Line 291 
Line 291 
 eval{ $pdb->Decrypt( $record ) };  eval{ $pdb->Decrypt( $record ) };
 like(  like(
     $@,      $@,
     qr/^Unsupported \s version \s $bad_version \s in \s Decrypt/xms,      qr/^Unsupported \s Version \s $bad_version/xms,
     'Couldn\'t Decrypt with unsupported version'      'Couldn\'t Decrypt with unsupported version'
 );  );
   
Line 299 
Line 299 
 eval{ $pdb->Encrypt( $record, undef, $acct ) };  eval{ $pdb->Encrypt( $record, undef, $acct ) };
 like(  like(
     $@,      $@,
     qr/^Unsupported \s version \s $bad_version \s in \s Encrypt/xms,      qr/^Unsupported \s Version \s $bad_version/xms,
     'Couldn\'t Encrypt with unsupported version'      'Couldn\'t Encrypt with unsupported version'
 );  );
   
Line 324 
Line 324 
     'Couldn\'t ParseRecord with Invalid Version'      'Couldn\'t ParseRecord with Invalid Version'
 );  );
   
 eval{ $pdb->Password( $password ) };  eval{ $pdb->Password( $new_password ) };
 like( $@,  like( $@,
     qr/^Unsupported \s Version \s $bad_version/xms,      qr/^Unsupported \s Version \s $bad_version/xms,
     'Couldn\'t Password with Invalid Version'      'Couldn\'t Password with Invalid Version'
 );  );
   
   
 $pdb     = undef;  $pdb     = undef;
 $record  = undef;  $record  = undef;
 $record2 = undef;  $record2 = undef;
Line 344 
Line 343 
         my $record;          my $record;
         my $decrypted;          my $decrypted;
         %{ $acct->{3}->{data} } = %unchanging_date;          %{ $acct->{3}->{data} } = %unchanging_date;
           my $rec_num = 0;
   
   
         my $Num_Tests_Left = 25;          my $Num_Tests_Left = 25;
     SKIP: {      SKIP: {
             if ( defined $options->{cipher} && $options->{cipher} > 0 ) {              if ( defined $options->{cipher} && $options->{cipher} > 0 ) {
Line 400 
Line 401 
             ok( $record = $pdb->append_Record(), 'Append Record' );              ok( $record = $pdb->append_Record(), 'Append Record' );
   
             ok( $pdb->Password(), 'Clear Password' );              ok( $pdb->Password(), 'Clear Password' );
   
             eval{ $pdb->Encrypt() };              eval{ $pdb->Encrypt() };
                 like(                  like(
                 $@,                  $@,
Line 422 
Line 422 
             eval{ $pdb->Encrypt( $record, $new_password, $acct ) };              eval{ $pdb->Encrypt( $record, $new_password, $acct ) };
             like(              like(
                 $@,                  $@,
                 qr/^Invalid \s Password/xms,                  qr/^Incorrect \s Password/xms,
                 'Encrypt account into record with wrong password'                  'Encrypt account into record with wrong password'
             );              );
   
Line 432 
Line 432 
             ok( $pdb->Encrypt( $record, $password, $acct ),              ok( $pdb->Encrypt( $record, $password, $acct ),
                 'Encrypt account into record (with no changes)');                  'Encrypt account into record (with no changes)');
   
               ok( $decrypted = $pdb->Decrypt( $pdb->{records}->[$rec_num] ),
                   'Decrypt record' );
   
   
               is( $decrypted->{2}->{data}, $password, 'Got password' );
   
             ok( $pdb->Write($file), 'Write file' );              ok( $pdb->Write($file), 'Write file' );
             #print Dumper $pdb, $acct, $record;  
   
             $pdb = undef;              $pdb = undef;
   
Line 441 
Line 446 
   
             ok( $pdb->Load($file), 'Load File' );              ok( $pdb->Load($file), 'Load File' );
   
             my $rec_num = 0;  
   
             eval{ $pdb->Decrypt( ) };              eval{ $pdb->Decrypt( ) };
             like(              like(
                 $@,                  $@,
Line 460 
Line 463 
             eval{ $pdb->Decrypt( $pdb->{records}->[$rec_num], $new_password ) };              eval{ $pdb->Decrypt( $pdb->{records}->[$rec_num], $new_password ) };
             like(              like(
                 $@,                  $@,
                 qr/^Invalid \s Password/xms,                  qr/^Incorrect \s Password/xms,
                 'Decypt with invalid password'                  'Decypt with invalid password'
             );              );
   
             ok( $pdb->Password($password), 'Verify Password' );  
   
             eval{  $pdb->Password($new_password) };              eval{  $pdb->Password($new_password) };
             like(              like(
                 $@,                  $@,
                 qr/^Invalid \s Password/xms,                  qr/^Incorrect \s Password/xms,
                 'Verify Incorrect Password'                  'Verify Incorrect Password'
             );              );
   
Line 479 
Line 480 
                 qr/^No \s encrypted \s content!/xms,                  qr/^No \s encrypted \s content!/xms,
                 'Decrypt with empty record'                  'Decrypt with empty record'
             );              );
   
               ok( $pdb->Password($password), 'Verify Password' );
   
             ok( $decrypted = $pdb->Decrypt( $pdb->{records}->[$rec_num] ),              ok( $decrypted = $pdb->Decrypt( $pdb->{records}->[$rec_num] ),
                 'Decrypt record' );                  'Decrypt record' );
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>