Annotation of palm/Palm-Keyring/t/keyring.t, Revision 1.5
1.1 andrew 1: # Before `make install' is performed this script should be runnable with
2: # `make test'. After `make install' it should work as `perl test.pl'
3:
4: ######################### We start with some black magic to print on failure.
5:
6: # Change 1..1 below to 1..last_test_to_print .
7: # (It may become useful if the test is moved to ./t subdirectory.)
8:
1.3 andrew 9: my $test = 1;
1.5 ! andrew 10: BEGIN { $| = 1; print "1..20\n"; }
1.3 andrew 11: END {print "not ok $test\n" unless $loaded;}
12: use Palm::PDB;
1.1 andrew 13: use Palm::Keyring;
14: $loaded = 1;
1.3 andrew 15: print "ok $test\n";
16: $test++;
1.1 andrew 17:
18: ######################### End of black magic.
19:
20: # Insert your test code below (better if it prints "ok 13"
21: # (correspondingly "not ok 13") depending on the success of chunk 13
22: # of the test code):
23:
1.3 andrew 24: my $file = 'Keys-GTKR-test.pdb';
1.1 andrew 25: my $password = '12345';
1.3 andrew 26: my $new_password = '54321';
27: my $acct = {
28: name => 'test3',
29: account => 'atestaccount',
30: password => $password,
31: notes => 'now that really roxorZ!',
1.4 andrew 32: lastchange => {
33: day => 2,
34: month => 2,
35: year => 99,
36: },
1.3 andrew 37: };
38:
1.1 andrew 39: my $pdb;
1.3 andrew 40: my $record;
1.1 andrew 41:
42: eval { $pdb = new Palm::Keyring($password) };
43: unless( $@ ) {
1.3 andrew 44: print "ok $test\n";
45: } else {
46: print "not ok $test\n";
47: }
48: $test++;
49:
50: eval { $record = $pdb->append_Record() };
51: unless( $@ ) {
52: print "ok $test\n";
53: } else {
54: print "not ok $test\n";
55: }
56: $test++;
57:
58: eval { $pdb->Encrypt($record, $acct, $password) || die };
59: unless( $@ ) {
60: print "ok $test\n";
61: } else {
62: print "not ok $test\n";
63: }
64: $test++;
65:
66: eval { $pdb->Write($file) };
67: unless( $@ ) {
68: print "ok $test\n";
1.1 andrew 69: } else {
1.3 andrew 70: print "not ok $test\n";
1.1 andrew 71: }
1.3 andrew 72: $test++;
1.1 andrew 73:
1.3 andrew 74: $pdb = new Palm::PDB;
75: $acct = {};
1.1 andrew 76:
1.3 andrew 77: eval { $pdb->Load($file) };
1.1 andrew 78: unless( $@ ) {
1.3 andrew 79: print "ok $test\n";
1.1 andrew 80: } else {
1.3 andrew 81: print "not ok $test\n";
1.1 andrew 82: }
1.3 andrew 83: $test++;
1.1 andrew 84:
1.3 andrew 85: eval { $pdb->Password($password) || die };
86: unless( $@ ) {
87: print "ok $test\n";
88: } else {
89: print "not ok $test\n";
90: }
91: $test++;
1.1 andrew 92:
1.3 andrew 93: eval { $acct = $pdb->Decrypt($pdb->{'records'}->[1]) || die };
94: unless( $@ ) {
95: print "ok $test\n";
96: } else {
97: print "not ok $test\n";
98: }
99: $test++;
1.1 andrew 100:
1.3 andrew 101: if ($acct->{'password'} eq $password) {
102: print "ok $test\n";
1.1 andrew 103: } else {
1.3 andrew 104: print "not ok $test\n";
1.1 andrew 105: }
1.3 andrew 106: $test++;
1.1 andrew 107:
1.4 andrew 108: my $old_date = $acct->{'lastchange'};
109:
1.3 andrew 110: eval { $pdb->Password($password, $new_password) || die };
111: unless( $@ ) {
112: print "ok $test\n";
1.1 andrew 113: } else {
1.3 andrew 114: print "not ok $test\n";
1.1 andrew 115: }
1.3 andrew 116: $test++;
1.1 andrew 117:
1.3 andrew 118: $acct = {};
119: eval { $acct = $pdb->Decrypt($pdb->{'records'}->[1]) || die };
120: unless( $@ ) {
121: print "ok $test\n";
1.1 andrew 122: } else {
1.3 andrew 123: print "not ok $test\n";
1.1 andrew 124: }
1.3 andrew 125: $test++;
1.1 andrew 126:
1.3 andrew 127: if ($acct->{'password'} eq $password) {
128: print "ok $test\n";
129: } else {
130: print "not ok $test\n";
131: }
132: $test++;
1.4 andrew 133:
134: my $new_date = $acct->{'lastchange'};
135:
136: if (
137: $old_date->{'day'} == $new_date->{'day'} &&
138: $old_date->{'month'} == $new_date->{'month'} &&
139: $old_date->{'year'} == $new_date->{'year'}
140: ) {
141: print "ok $test\n";
142: } else {
143: print "not ok $test\n";
144: }
145: $test++;
146:
147: $acct->{'password'} = $new_password;
148:
149: eval { $acct = $pdb->Encrypt($pdb->{'records'}->[1], $acct) || die };
150: unless( $@ ) {
151: print "ok $test\n";
152: } else {
153: print "not ok $test\n";
154: }
155: $test++;
156:
157: $old_date = $new_date;
158: $new_date = $acct->{'lastchange'};
159:
160: eval { $acct = $pdb->Decrypt($pdb->{'records'}->[1]) || die };
161: unless( $@ ) {
162: print "ok $test\n";
163: } else {
164: print "not ok $test\n";
165: }
166: $test++;
167:
168: if (
169: $old_date->{'day'} != $new_date->{'day'} ||
170: $old_date->{'month'} != $new_date->{'month'} ||
171: $old_date->{'year'} != $new_date->{'year'}
172: ) {
173: print "ok $test\n";
174: } else {
175: print "not ok $test\n";
176: }
177: $test++;
178:
179: if ($acct->{'password'} eq $new_password) {
1.5 ! andrew 180: print "ok $test\n";
! 181: } else {
! 182: print "not ok $test\n";
! 183: }
! 184: $test++;
! 185:
! 186: eval { $pdb->Password() || die };
! 187: unless( $@ ) {
! 188: print "ok $test\n";
! 189: } else {
! 190: print "not ok $test\n";
! 191: }
! 192: $test++;
! 193:
! 194: eval { $acct = $pdb->Decrypt($pdb->{'records'}->[1]) || die };
! 195: if ( $@ ) {
! 196: print "ok $test\n";
! 197: } else {
! 198: print "not ok $test\n";
! 199: }
! 200: $test++;
! 201:
! 202: unless ($acct->{'password'} eq $password) {
1.4 andrew 203: print "ok $test\n";
204: } else {
205: print "not ok $test\n";
206: }
207: $test++;
208:
209:
1.1 andrew 210: unlink($file);
211:
212: 1;
213:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to keyring.t CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / t