diff options
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/verifier-netdb.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t index 3e34966..6a91cb3 100755 --- a/perl/t/verifier-netdb.t +++ b/perl/t/verifier-netdb.t @@ -7,7 +7,7 @@ # environments. # # Written by Russ Allbery <eagle@eyrie.org> -# Copyright 2008 +# Copyright 2008, 2014 # The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. @@ -21,13 +21,13 @@ use Util; my $netdb = 'netdb-node-roles-rc.stanford.edu'; my $host = 'windlord.stanford.edu'; -my $user = 'eagle@eyrie.org'; +my $user = 'rra@stanford.edu'; # Determine the local principal. my $klist = `klist 2>&1` || ''; SKIP: { skip "tests useful only with Stanford Kerberos tickets", 4 - unless ($klist =~ /^Default principal: \S+\@stanford\.edu$/m); + unless ($klist =~ /^(Default p|\s+P)rincipal: \S+\@stanford\.edu$/m); # Set up our configuration. $Wallet::Config::NETDB_REALM = 'stanford.edu'; |