Annotation of palm/Palm-Keyring/t/keyring5.t, Revision 1.11
1.5 andrew 1: #!/usr/bin/perl -T
1.11 ! andrew 2: # $RedRiver: keyring5.t,v 1.10 2008/09/18 01:47:37 andrew Exp $
1.1 andrew 3: use strict;
4: use warnings;
5:
1.8 andrew 6: use Test::More tests => 138;
1.1 andrew 7:
1.10 andrew 8: BEGIN {
9: use_ok('Palm::PDB');
10: use_ok('Palm::Keyring');
1.1 andrew 11: }
12:
1.10 andrew 13: my $file = 'Keys-test.pdb';
14: my $password = '12345';
1.1 andrew 15: my $new_password = '54321';
16:
1.2 andrew 17: my $original_accts = [
1.10 andrew 18: { 0 => {
19: 'label_id' => 0,
20: 'data' => '',
21: 'label' => 'name',
22: 'font' => 0,
23: },
24: 2 => {
25: 'label_id' => 2,
26: 'data' => 'only password is set',
27: 'label' => 'password',
28: 'font' => 0,
29: },
30: 3 => {
31: 'label_id' => 3,
32: 'data' => {
33: 'month' => 1,
34: 'day' => 1,
35: 'year' => 107
36: },
37: 'label' => 'lastchange',
38: 'font' => 0,
39: }
1.2 andrew 40: },
1.10 andrew 41: { 0 => {
42: 'label_id' => 0,
43: 'data' => 'test',
44: 'label' => 'name',
45: 'font' => 0,
46: },
47: 2 => {
48: 'label_id' => 2,
49: 'data' => 'abcd1234',
50: 'label' => 'password',
51: 'font' => 0,
52: },
53: 3 => {
54: 'label_id' => 3,
55: 'data' => {
56: 'month' => 1,
57: 'day' => 11,
58: 'year' => 107
59: },
60: 'label' => 'lastchange',
61: 'font' => 0,
62: },
63: 255 => {
64: 'label_id' => 255,
65: 'data' => 'This is a short note.',
66: 'label' => 'notes',
67: 'font' => 0,
68: }
1.2 andrew 69: },
1.10 andrew 70: { 0 => {
71: 'label_id' => 0,
72: 'data' => '',
73: 'label' => 'name',
74: 'font' => 0,
75: },
76: 2 => {
77: 'label_id' => 2,
78: 'data' => 'password (date is 2/2/07)',
79: 'label' => 'password',
80: 'font' => 0,
81: },
82: 3 => {
83: 'label_id' => 3,
84: 'data' => {
85: 'month' => 1,
86: 'day' => 2,
87: 'year' => 107
88: },
89: 'label' => 'lastchange',
90: 'font' => 0,
91: }
92: }
1.2 andrew 93: ];
1.11 ! andrew 94:
! 95: foreach my $cipher ( 0 .. 3 ) {
! 96:
! 97: #next unless $cipher == 0;
! 98: my $pdb;
! 99: my @recs;
! 100: my $record;
! 101: my $decrypted;
! 102:
! 103: my $crypt = Palm::Keyring::crypts($cipher);
! 104:
! 105: my $options = {
! 106: version => 5,
! 107: password => $password,
! 108: cipher => $cipher,
! 109: };
1.1 andrew 110:
1.9 andrew 111: my $Num_Tests_Left = 34;
1.10 andrew 112: SKIP: {
113: if ( $cipher > 0 ) {
1.9 andrew 114: skip 'Crypt::CBC not installed', $Num_Tests_Left
115: unless eval "require Crypt::CBC";
1.10 andrew 116: skip 'Crypt::' . $crypt->{name} . ' not installed',
117: $Num_Tests_Left
1.9 andrew 118: unless eval "require Crypt::$crypt->{name}";
1.4 andrew 119: }
1.9 andrew 120: skip 'Digest::HMAC_SHA1 not installed', $Num_Tests_Left
121: unless eval "require Digest::HMAC_SHA1";
1.4 andrew 122:
1.10 andrew 123: ok( $pdb = new Palm::Keyring($options),
124: 'New Palm::Keyring v'
125: . $options->{version}
126: . ' Cipher '
127: . $options->{cipher}
1.4 andrew 128: );
129:
1.10 andrew 130: foreach my $acct ( @{$original_accts} ) {
1.4 andrew 131: ok( $record = $pdb->append_Record(), 'Append Record' );
1.10 andrew 132: ok( $pdb->Encrypt( $record, $password, $acct ),
1.7 andrew 133: 'Encrypt account into record' );
1.3 andrew 134: }
1.1 andrew 135:
1.4 andrew 136: ok( $pdb->Write($file), 'Write file' );
1.1 andrew 137:
1.4 andrew 138: $pdb = undef;
1.1 andrew 139:
1.4 andrew 140: ok( $pdb = new Palm::PDB(), 'New Palm::PDB' );
1.1 andrew 141:
1.4 andrew 142: ok( $pdb->Load($file), 'Load File' );
1.1 andrew 143:
1.4 andrew 144: ok( $pdb->Password($password), 'Verify Password' );
1.1 andrew 145:
1.7 andrew 146: my $rec_id = 0;
1.10 andrew 147: foreach my $rec ( @{ $pdb->{records} } ) {
1.7 andrew 148: ok( $decrypted = $pdb->Decrypt($rec), 'Decrypt record' );
1.10 andrew 149: if ( $rec_id == 1 ) {
150: is( $decrypted->{0}->{data},
151: $original_accts->[1]->{0}->{data},
152: 'Checking record name'
153: );
1.7 andrew 154: }
155: push @recs, $decrypted;
156: $rec_id++;
1.4 andrew 157: }
1.1 andrew 158:
1.4 andrew 159: is_deeply( \@recs, $original_accts, 'Account Matches' );
1.1 andrew 160:
1.4 andrew 161: @recs = ();
162: my $rec_num = 1;
1.1 andrew 163:
1.10 andrew 164: ok( $pdb->Password( $password, $new_password ),
165: 'Change PDB Password' );
1.1 andrew 166:
1.10 andrew 167: foreach my $rec ( @{ $pdb->{records} } ) {
168: ok( $decrypted = $pdb->Decrypt($rec), 'Decrypt record' );
169: push @recs, $decrypted;
1.4 andrew 170: }
1.1 andrew 171:
1.4 andrew 172: is_deeply( \@recs, $original_accts, 'Account Matches' );
1.1 andrew 173:
1.4 andrew 174: my $acct;
1.10 andrew 175: ok( $acct = $pdb->Decrypt( $pdb->{records}->[$rec_num] ),
176: 'decrypt record ' . $rec_num );
1.1 andrew 177:
1.10 andrew 178: ok( $acct->{2}->{data} = $new_password, 'Change password' );
1.1 andrew 179:
1.8 andrew 180: $pdb->{records}->[$rec_num]->{plaintext} = $acct;
181: $recs[$rec_num] = $acct;
182:
1.10 andrew 183: ok( $pdb->Encrypt( $pdb->{'records'}->[$rec_num] ), 'Change record' );
1.1 andrew 184:
1.10 andrew 185: ok( $decrypted = $pdb->Decrypt( $pdb->{'records'}->[$rec_num] ),
1.7 andrew 186: 'Decrypt changed record' );
1.1 andrew 187:
1.10 andrew 188: is_deeply( $acct, $decrypted, 'Compare changed record' );
1.1 andrew 189:
1.8 andrew 190: my $last_decrypted = $decrypted;
1.7 andrew 191: $decrypted = {};
1.4 andrew 192: ok( $pdb->Password(), 'Forget password' );
1.1 andrew 193:
1.10 andrew 194: eval { $decrypted = $pdb->Decrypt( $pdb->{'records'}->[$rec_num] ) };
195: ok( $@, 'Don\'t decrypt' );
1.1 andrew 196:
1.4 andrew 197: my $got_password = 'Got nothing';
198: if ($decrypted) {
1.7 andrew 199: $got_password = $decrypted->{2}->{data};
1.2 andrew 200: }
1.1 andrew 201:
1.4 andrew 202: isnt( $got_password, $new_password, 'Didn\'t get new password' );
1.8 andrew 203:
204: ok( $pdb->Unlock($new_password), 'Unlock' );
205:
206: my @plaintext = map { $_->{plaintext} } @{ $pdb->{records} };
207:
208: is_deeply( \@plaintext, \@recs, 'Account Matches' );
209:
210: ok( $pdb->Lock(), 'Lock' );
211:
212: my @cleared = map { { 0 => $_->{0} } } @recs;
1.10 andrew 213: @plaintext = map { $_->{plaintext} } @{ $pdb->{records} };
1.8 andrew 214:
215: is_deeply( \@plaintext, \@cleared, 'Cleared records' );
1.1 andrew 216:
1.4 andrew 217: ok( unlink($file), 'Remove test pdb v' . $options->{version} );
1.10 andrew 218: }
1.1 andrew 219: }
220:
221: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to keyring5.t CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / t