version 1.8, 2007/09/12 03:44:36 |
version 1.9, 2007/09/13 16:44:39 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: keyring5.t,v 1.7 2007/08/10 04:13:31 andrew Exp $ |
# $RedRiver: keyring5.t,v 1.8 2007/09/12 02:44:36 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
} |
} |
]; |
]; |
|
|
|
my $Num_Tests_Left = 34; |
SKIP: { |
SKIP: { |
if ($cipher > 0) { |
if ($cipher > 0) { |
skip 'Crypt::CBC not installed', 34 unless |
skip 'Crypt::CBC not installed', $Num_Tests_Left |
eval "require Crypt::CBC"; |
unless eval "require Crypt::CBC"; |
skip 'Crypt::' . $crypt->{name} . ' not installed', 34 unless |
skip 'Crypt::' . $crypt->{name} . ' not installed', $Num_Tests_Left |
eval "require Crypt::$crypt->{name}"; |
unless eval "require Crypt::$crypt->{name}"; |
} |
} |
skip 'Digest::HMAC_SHA1 not installed', 34 unless |
skip 'Digest::HMAC_SHA1 not installed', $Num_Tests_Left |
eval " require Digest::HMAC_SHA1 "; |
unless eval "require Digest::HMAC_SHA1"; |
|
|
ok( $pdb = new Palm::Keyring($options), 'New Palm::Keyring v' |
ok( $pdb = new Palm::Keyring($options), 'New Palm::Keyring v' |
. $options->{version} |
. $options->{version} |