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

Return to keyring.t CVS log

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

version 1.23, 2008/09/19 06:39:58

version 1.24, 2008/09/19 06:53:08

Line 1

#!/usr/bin/perl -T

# $RedRiver: keyring.t,v 1.22 2008/09/19 02:51:44 andrew Exp $

# $RedRiver: keyring.t,v 1.23 2008/09/19 05:39:58 andrew Exp $

use strict;

use warnings;

Line 206

);

$pdb->{version} = 999;

eval{ $pdb->Encrypt( $record, $password, $acct ) };

delete $record->{encrypted};

eval{ $pdb->Encrypt( $record, undef, $acct ) };

like(

$@,

qr/^Unsupported \s version \s 999/xms,