=================================================================== RCS file: /cvs/palm/Palm-Keyring/t/keyring.t,v retrieving revision 1.14 retrieving revision 1.18 diff -u -r1.14 -r1.18 --- palm/Palm-Keyring/t/keyring.t 2007/08/10 05:13:31 1.14 +++ palm/Palm-Keyring/t/keyring.t 2008/09/18 02:53:27 1.18 @@ -1,98 +1,101 @@ #!/usr/bin/perl -T -# $RedRiver: keyring.t,v 1.13 2007/02/27 17:08:05 andrew Exp $ +# $RedRiver: keyring.t,v 1.17 2007/09/13 15:41:36 andrew Exp $ use strict; use warnings; -use Test::More tests => 44; +use Test::More tests => 52; +use Data::Dumper; -BEGIN { - use_ok( 'Palm::PDB' ); - use_ok( 'Palm::Keyring' ); +BEGIN { + use_ok('Palm::PDB'); + use_ok('Palm::Keyring'); } -my $file = 'Keys-test.pdb'; -my $password = '12345'; +my $file = 'Keys-test.pdb'; +my $password = '12345'; my $new_password = '54321'; my @o = ( - { - version => 4, + { version => 4, password => $password, }, - { - version => 5, - password => $password, - cipher => 1, + { version => 5, + password => $password, + cipher => 1, }, ); -foreach my $options (@o) { - my $pdb; - my $record; - my $decrypted; - my $acct = { 0 => { - label => 'name', + label => 'name', label_id => 0, - data => 'test3', - font => 0, + data => 'test3', + font => 0, }, 1 => { - label => 'account', + label => 'account', label_id => 1, - data => 'atestaccount', - font => 0, + data => 'atestaccount', + font => 0, }, 2 => { label => 'password', label_id => 2, data => $password, - font => 0, + font => 0, }, 3 => { - label => 'lastchange', + label => 'lastchange', label_id => 3, - data => { - day => 2, - month => 2, + data => { + day => 2, + month => 2, year => 99, }, - font => 0, + font => 0, }, 255 => { - label => 'notes', + label => 'notes', label_id => 255, - data => 'now that really roxorZ!', - font => 0, + data => 'now that really roxorZ!', + font => 0, }, }; - SKIP: { - if (defined $options->{cipher} && $options->{cipher} > 0) { - my $crypt = Palm::Keyring::crypts($options->{cipher}); - skip 'Crypt::CBC not installed', 21 unless - eval "require Crypt::CBC"; - skip 'Crypt::' . $crypt->{name} . ' not installed', 21 unless - eval "require Crypt::$crypt->{name}"; +foreach my $options (@o) { + my $pdb; + my $record; + my $decrypted; + + my $Num_Tests_Left = 25; +SKIP: { + if ( defined $options->{cipher} && $options->{cipher} > 0 ) { + my $crypt = Palm::Keyring::crypts( $options->{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}"; } - if ($options->{version} == 4) { - skip 'Crypt::DES not installed', 21 unless - eval " require Crypt::DES "; - skip 'Digest::MD5 not installed', 21 unless - eval " require Digest::MD5 "; - } elsif ($options->{version} == 5) { - skip 'Digest::HMAC_SHA1 not installed', 21 unless - eval " require Digest::HMAC_SHA1 "; + if ( $options->{version} == 4 ) { + skip 'Crypt::DES not installed', $Num_Tests_Left + unless eval "require Crypt::DES "; + skip 'Digest::MD5 not installed', $Num_Tests_Left + unless eval "require Digest::MD5 "; } + elsif ( $options->{version} == 5 ) { + skip 'Digest::HMAC_SHA1 not installed', $Num_Tests_Left + unless eval "require Digest::HMAC_SHA1 "; + } - ok( $pdb = new Palm::Keyring($options), - 'new Palm::Keyring v' . $options->{version}); + ok( $pdb = new Palm::Keyring($options), + 'new Palm::Keyring v' . $options->{version} + ); ok( $record = $pdb->append_Record(), 'Append Record' ); - ok( $pdb->Encrypt($record, $acct, $password), + ok( $pdb->Encrypt( $record, $password, $acct ), 'Encrypt account into record' ); ok( $pdb->Write($file), 'Write file' ); @@ -106,7 +109,7 @@ ok( $pdb->Password($password), 'Verify Password' ); my $rec_num = 0; - ok( $decrypted = $pdb->Decrypt($pdb->{records}->[$rec_num]), + ok( $decrypted = $pdb->Decrypt( $pdb->{records}->[$rec_num] ), 'Decrypt record' ); is( $decrypted->{2}->{data}, $password, 'Got password' ); @@ -115,9 +118,10 @@ my $old_date = $decrypted->{3}->{data}; - ok( $pdb->Password($password, $new_password), 'Change PDB Password' ); + ok( $pdb->Password( $password, $new_password ), + 'Change PDB Password' ); - ok( $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]), + ok( $decrypted = $pdb->Decrypt( $pdb->{'records'}->[$rec_num] ), 'Decrypt with new password' ); my $new_date = $decrypted->{3}->{data}; @@ -126,30 +130,49 @@ $acct->{2}->{data} = $new_password; - ok( $pdb->Encrypt($pdb->{'records'}->[$rec_num], $acct), - 'Change record' ); + $pdb->{records}->[$rec_num]->{plaintext} = $acct; - ok( $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]), + ok( $pdb->Encrypt( $pdb->{'records'}->[$rec_num] ), 'Change record' ); + + ok( $decrypted = $pdb->Decrypt( $pdb->{'records'}->[$rec_num] ), 'Decrypt new record' ); $new_date = $decrypted->{3}->{data}; - my $od = join '/', map { $old_date->{$_} } sort keys %{ $old_date }; - my $nd = join '/', map { $new_date->{$_} } sort keys %{ $new_date }; + my $od = join '/', map { $old_date->{$_} } sort keys %{$old_date}; + my $nd = join '/', map { $new_date->{$_} } sort keys %{$new_date}; - isnt( $od, $nd, 'Date changed'); + isnt( $od, $nd, 'Date changed' ); - is( $decrypted->{2}->{data}, $new_password, 'Got new password' ); + is( $decrypted->{2}->{data}, $new_password, 'Got new password' ); + my $last_decrypted = $decrypted; + $decrypted = {}; ok( $pdb->Password(), 'Forget password' ); - eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]) }; + eval { $decrypted = $pdb->Decrypt( $pdb->{'records'}->[$rec_num] ) }; ok( $@, 'Don\'t decrypt' ); - isnt( $decrypted->{password}, $new_password, 'Didn\'t get new password' ); + isnt( $decrypted->{password}, + $new_password, 'Didn\'t get new password' ); + ok( $pdb->Unlock($new_password), 'Unlock' ); + + my @plaintext = map { $_->{plaintext} } @{ $pdb->{records} }; + + is_deeply( $plaintext[0], $last_decrypted, 'Account Matches' ); + + ok( $pdb->Lock(), 'Lock' ); + + my $cleared_decrypted = {}; + $cleared_decrypted->{0} = $last_decrypted->{0}; + @plaintext = map { $_->{plaintext} } @{ $pdb->{records} }; + + is_deeply( $plaintext[0], $cleared_decrypted, 'Cleared records' ); + ok( unlink($file), 'Remove test pdb v' . $options->{version} ); + } }