diff options
| author | Jon Robertson <jonrober@stanford.edu> | 2009-12-17 11:26:28 -0800 |
|---|---|---|
| committer | Jon Robertson <jonrober@stanford.edu> | 2010-01-05 14:42:05 -0800 |
| commit | fc1dd4f5988c4ae932e26e92f0e7935e0fcaf2eb (patch) | |
| tree | 72b2ad67010fe97cc465658d3f2edbb7609eb2c6 /perl/t/keytab.t | |
| parent | e0f69c0b3f41684079762f843c37888d1017d576 (diff) | |
Added keytab testing cases for Heimdal KDC
Added cases to handle the Wallet::Object::Keytab module using a Heimdal
KDC as well as an MIT KDC. In most cases this is transparent, but some
tests are skipped for Heimdal, and the commands run to test that the
created principals and keytabs are correct are different for Heimdal.
The code now branches based on the value of
$Wallet::Config::KEYTAB_KRBTYPE.
Diffstat (limited to 'perl/t/keytab.t')
| -rwxr-xr-x | perl/t/keytab.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl/t/keytab.t b/perl/t/keytab.t index 8a11ad4..5c9ee68 100755 --- a/perl/t/keytab.t +++ b/perl/t/keytab.t @@ -8,7 +8,7 @@ # See LICENSE for licensing terms. use POSIX qw(strftime); -use Test::More tests => 225; +use Test::More tests => 221; use Wallet::Admin; use Wallet::Config; @@ -154,8 +154,6 @@ sub enctypes { next unless /^ *\d+ /; my ($string) = /^\s*\d+\s+(\S+)/; next unless $string; - #$enctype = $enctype{lc $string} || 'UNKNOWN'; - #push (@enctypes, $enctype); push (@enctypes, $string); } close KTUTIL; |