===================================================================
RCS file: /cvs/palm/Palm-Keyring/t/keyring.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- palm/Palm-Keyring/t/keyring.t	2007/02/01 01:56:11	1.4
+++ palm/Palm-Keyring/t/keyring.t	2007/02/03 00:53:22	1.5
@@ -7,7 +7,7 @@
 # (It may become useful if the test is moved to ./t subdirectory.)
 
 my $test = 1;
-BEGIN { $| = 1; print "1..17\n"; }
+BEGIN { $| = 1; print "1..20\n"; }
 END {print "not ok $test\n" unless $loaded;}
 use Palm::PDB;
 use Palm::Keyring;
@@ -177,6 +177,29 @@
 $test++;
 
 if ($acct->{'password'} eq $new_password) {
+	print "ok $test\n";
+} else {
+	print "not ok $test\n";
+}
+$test++;
+
+eval { $pdb->Password() || die };
+unless( $@ ) {
+	print "ok $test\n";
+} else {
+	print "not ok $test\n";
+}
+$test++;
+
+eval { $acct = $pdb->Decrypt($pdb->{'records'}->[1]) || die };
+if ( $@ ) {
+	print "ok $test\n";
+} else {
+	print "not ok $test\n";
+}
+$test++;
+
+unless ($acct->{'password'} eq $password) {
 	print "ok $test\n";
 } else {
 	print "not ok $test\n";