version 1.23, 2008/09/19 06:39:58 |
version 1.24, 2008/09/19 06:53:08 |
|
|
#!/usr/bin/perl -T |
#!/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 strict; |
use warnings; |
use warnings; |
|
|
|
|
); |
); |
|
|
$pdb->{version} = 999; |
$pdb->{version} = 999; |
eval{ $pdb->Encrypt( $record, $password, $acct ) }; |
delete $record->{encrypted}; |
|
eval{ $pdb->Encrypt( $record, undef, $acct ) }; |
like( |
like( |
$@, |
$@, |
qr/^Unsupported \s version \s 999/xms, |
qr/^Unsupported \s version \s 999/xms, |