From 2948d66c4c074651820004856284faf7d018a3ee Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Fri, 5 Mar 2010 14:18:10 -0800 Subject: Don't clobber the user ticket cache in the kadmin test --- perl/t/kadmin.t | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl/t/kadmin.t') diff --git a/perl/t/kadmin.t b/perl/t/kadmin.t index 0b52528..e5fb2fa 100755 --- a/perl/t/kadmin.t +++ b/perl/t/kadmin.t @@ -81,6 +81,9 @@ SKIP: { $Wallet::Config::KEYTAB_KRBTYPE = contents ('t/data/test.krbtype'); $Wallet::Config::KEYTAB_TMP = '.'; + # Don't destroy the user's Kerberos ticket cache. + $ENV{KRB5CCNAME} = 'krb5cc_test'; + # Create the object and clean up the principal we're going to use. $kadmin = eval { Wallet::Kadmin->new }; ok (defined $kadmin, 'Creating Wallet::Kadmin object succeeds'); -- cgit v1.2.3