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

Return to keyring.t CVS log

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

version 1.9, 2007/02/19 00:22:42

version 1.10, 2007/02/19 01:37:10

Line 1

#!/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 warnings;

Line 102

$decrypted = {};

ok( $pdb->Password(), 'Forget password' );

eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[1]) };

eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]) };

ok( $@, 'Don\'t decrypt' );

isnt( $decrypted->{password}, $new_password, 'Didn\'t get new password' );