palm/Palm-Keyring/t/keyring.t - diff

Return to keyring.t CVS log

Up to [local] / palm / Palm-Keyring / t

-version 1.4, 2007/02/01 01:56:11
+version 1.5, 2007/02/03 00:53:22
 Line 7
 Line 7
 Line 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;
 Line 177
 Line 177
 Line 177
  $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";