version 1.9, 2007/02/19 00:22:42 |
version 1.10, 2007/02/19 01:37:10 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: keyring.t,v 1.8 2007/02/18 16:24:53 andrew Exp $ |
# $RedRiver: keyring.t,v 1.9 2007/02/19 00:22:42 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
$decrypted = {}; |
$decrypted = {}; |
ok( $pdb->Password(), 'Forget password' ); |
ok( $pdb->Password(), 'Forget password' ); |
|
|
eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[1]) }; |
eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]) }; |
ok( $@, 'Don\'t decrypt' ); |
ok( $@, 'Don\'t decrypt' ); |
|
|
isnt( $decrypted->{password}, $new_password, 'Didn\'t get new password' ); |
isnt( $decrypted->{password}, $new_password, 'Didn\'t get new password' ); |