Add tests for the Kerberos v5 to Kerberos v4 name mapping and do more

tests of the machinery around kaserver synchronization even if we don't
have a full configuration.

1 files changed, 2 insertions, 4 deletions

diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm
index 4ae8e10..5f128b0 100644
--- a/perl/Wallet/Object/Keytab.pm
+++ b/perl/Wallet/Object/Keytab.pm
@@ -185,11 +185,9 @@ sub kaserver_name {
     my %host = map { $_ => 1 } qw(host ident imap pop smtp);
     $k5 =~ s/\@.*//;
     my @parts = split ('/', $k5);
-    if (@parts == 1) {
-        return $parts[0];
-    } elsif (@parts > 2) {
+    if (@parts > 2) {
         return undef;
-    } elsif ($host{$parts[0]}) {
+    } elsif (@parts == 2 and $host{$parts[0]}) {
         $parts[1] =~ s/\..*//;
         $parts[0] = 'rcmd' if $parts[0] eq 'host';
     }