version 1.15, 2007/09/12 03:44:36 |
version 1.16, 2007/09/13 01:02:52 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: keyring.t,v 1.14 2007/08/10 04:13:31 andrew Exp $ |
# $RedRiver: keyring.t,v 1.15 2007/09/12 02:44:36 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
SKIP: { |
SKIP: { |
if (defined $options->{cipher} && $options->{cipher} > 0) { |
if (defined $options->{cipher} && $options->{cipher} > 0) { |
my $crypt = Palm::Keyring::crypts($options->{cipher}); |
my $crypt = Palm::Keyring::crypts($options->{cipher}); |
skip 'Crypt::CBC not installed', 21 unless |
skip 'Crypt::CBC not installed', 25 unless |
eval "require Crypt::CBC"; |
eval "require Crypt::CBC"; |
skip 'Crypt::' . $crypt->{name} . ' not installed', 21 unless |
skip 'Crypt::' . $crypt->{name} . ' not installed', 25 unless |
eval "require Crypt::$crypt->{name}"; |
eval "require Crypt::$crypt->{name}"; |
} |
} |
|
|