version 1.4, 2007/02/01 01:56:11 |
version 1.5, 2007/02/03 00:53:22 |
|
|
# (It may become useful if the test is moved to ./t subdirectory.) |
# (It may become useful if the test is moved to ./t subdirectory.) |
|
|
my $test = 1; |
my $test = 1; |
BEGIN { $| = 1; print "1..17\n"; } |
BEGIN { $| = 1; print "1..20\n"; } |
END {print "not ok $test\n" unless $loaded;} |
END {print "not ok $test\n" unless $loaded;} |
use Palm::PDB; |
use Palm::PDB; |
use Palm::Keyring; |
use Palm::Keyring; |
|
|
$test++; |
$test++; |
|
|
if ($acct->{'password'} eq $new_password) { |
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"; |
print "ok $test\n"; |
} else { |
} else { |
print "not ok $test\n"; |
print "not ok $test\n"; |