version 1.5, 2007/08/10 05:13:31 |
version 1.6, 2007/09/13 16:44:39 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: keyring5-samples.t,v 1.4 2007/02/27 17:08:05 andrew Exp $ |
# $RedRiver: keyring5-samples.t,v 1.5 2007/08/10 04:13:31 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
my $pdb; |
my $pdb; |
ok( $pdb = new Palm::PDB, 'new Palm::PDB' ); |
ok( $pdb = new Palm::PDB, 'new Palm::PDB' ); |
ok( $pdb->Load('t/' . $file), "Loading '$file'" ); |
ok( $pdb->Load('t/' . $file), "Loading '$file'" ); |
|
my $Num_Tests_Left = 5; |
SKIP: { |
SKIP: { |
skip 'Digest::HMAC_SHA1 not installed', 5 unless |
skip 'Digest::HMAC_SHA1 not installed', $Num_Tests_Left |
eval " require Digest::HMAC_SHA1 "; |
unless eval "require Digest::HMAC_SHA1"; |
|
|
if ($pdb->{appinfo}->{cipher} > 0) { |
if ($pdb->{appinfo}->{cipher} > 0) { |
my $crypt = Palm::Keyring::crypts($pdb->{appinfo}->{cipher}); |
my $crypt = Palm::Keyring::crypts($pdb->{appinfo}->{cipher}); |
skip 'Crypt::CBC not installed', 5 unless |
skip 'Crypt::CBC not installed', $Num_Tests_Left |
eval "require Crypt::CBC"; |
unless eval "require Crypt::CBC"; |
skip 'Crypt::' . $crypt->{name} . ' not installed', 5 unless |
skip 'Crypt::' . $crypt->{name} . ' not installed', $Num_Tests_Left |
eval "require Crypt::$crypt->{name}"; |
unless eval "require Crypt::$crypt->{name}"; |
} |
} |
|
|
$password = 'abc'; |
$password = 'abc'; |